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ABSTRACT 

The  Naval  Ocean  Research  and  Development  Activity  (NORDA)*,  the  Navy's 
lead  laboratory  in  mapping,  charting,  and  geodesy,  is  currently  investigating 
the  use  of  remotely  sensed  multispectral  imagery  as  an  accurate  source  for 
computing  coastal-zone  bathymetry.  Because  the  Navy  supports  amphibious 
operations,  special  warfare,  and  coastal  hydrographic  surveying,  knowledge  of 
near-shore  features  is  essential.  The  widespread  availability,  temporal 
sensitivity,  and  almost  complete  global  coverage  of  most  satellites'  imagery 
make  it  an  ideal  way  to  collect  water  depth  information  from  areas  of  limited 
cr  denied  standard  access.  Bathymetry  computations  are  done  through  software 
designed  specifically  for  the  ongoing  research  in  this  field.  The  software 
applications  and  abilities  are  discussed  in  this  technical  note. 


r.ecentiy  designated  the  Naval  Oceanographic  and  Atmospheric  Research 
^ar. oratory  vNOARLj 
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I .  INTRODUCTION 

The  Coastal  Image  Understanding  (CIU)  project  is  currently  investigating 
the  combined  use  of  various  types  of  multispectral  imagery,  calibration  data 
sets,  and  regression  algorithms  as  a  source  for  bathymetry  measurements  to 
chart  coastal-zone  waters.  Not  all  coastal  areas  are  readily  accessible  for 
exploration;  thus,  bathymetry  capability  relies  on  alternate  techniques. 

These  techniques  must  involve  fast,  efficient  methodology  to  support  naval 
interest  in  amphibious  operations  and  special  warfare.  Although  satellite 
remote  sensing  has  the  disadvantage  of  low  spatial  resolution,  it  has  shown 
some  promising  results,  particularly  in  areas  where  the  ocean  bottom  is  highly 
visible.  To  create  bathymetric  charts  from  the  remotely  sensed  data,  both 
calibration  data  and  image  processing  software  had  to  be  developed.  The 
following  outlines  the  abilities  of  the  software  developed  by  the  CIU  project 
for  the  creation  of  bathymetric  charts  from  Landsat  Thematic  Mapper  (TM)  and 
Le  Systeme  Probatoire  d'Observation  de  la  Terre  (SPOT)  remotely  sensed 
imagery . 

The  bathymetry  process  presented  in  this  document  can  be  classified  into 
two  phases.  First,  calibration  data  must  he  prepared  and  analyzed.  Sections 
II -IV  describe  the  processing  of  the  calibration  data,  and  appendices  F  and  G 
give  location  and  availability  status  of  raw  calibration  data.  The  remaining 
sections  of  this  technical  note  present  steps  on  how  to  complete  the 
bathymetry  process;  that  is,  how  to  create  a  bathymetric  image  (section  V)  ,  a 
filtered  bathymetric  image  (section  VI),  and  a  coded  image  showing  error  at 
each  of  the  calibration  sites  (section  VII).  In  addition,  appe:  ' . .  t- s  A,  B,  C. 
and  H  contain  all  algorithms  and  FORTRAN  software  necessary  tc  gt ■-.•reference  an 
image,  process  the  calibration  data,  and  utilize  the  results  tc  create 
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bathymetric  images.  Appendices  D  and  E  describe  how  to  transfer  these  images 
from  digital  image  files  to  camera  prints. 

II.  PREPARING  THE  CALIBRATION  DATA 

Calibration  data  used  by  the  software  discussed  here  can  be  obtained  from 
two  sources:  National  Oceanic  and  Atmospheric  Administration  (NOAA) 
bathymetric  charts  and  National  Ocean  Survey  (NOS)  digital  bathymetry  tapes. 
Appendix  A  describes  in  detail  how  to  georeference  an  image  to  a  chart  so  that 
calibration  points  can  be  digitized  using  ELAS  (Earth  Resources  Laboratories 
Application  Software)  and  soundings  from  charts.  If  the  data  are  to  be  taken 
from  NOS  tapes,  then  the  following  steps  are  suggested  (see  Appendix  F  for  a 
complete  description  of  NOS  tape  format  and  a  list  of  those  tapes  available  in 
the  Pattern  Analysis  Laboratory  tape  library) .  If  the  data  are  to  be  taken 
from  charts,  only  step  (2)  and  program  EOF  from  step  (4)  are  necessary: 

(1)  Read  the  points  from  the  tape. 

(2)  Determine  the  desired  points  and  their  lines/elements 
relative  to  a  particular  image  (using  conversion  programs) . 

(3)  Sort  primarily  by  line  and  then  by  element. 

(4)  "Sieve"  the  file  of  points  (e.g.,  cut  on  depth, 

take  every  10th  point,  etc.)  and  put  cnd-of-file  record 
on  file  (program  EOF) . 

(5)  Create  a  DST  (Data  Summary  Tape)  file. 

Each  of  these  steps  is  covered  in  the  following  sections.  Program/file 
names  and  VAX/VMS  commands  are  given  where  needed.  Immediately  after  the 
discussion  are  comments  on  and  schematic  diagrams  of  the  entire  calibration 
data  preparation  process. 
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A.  READING  THE  POINTS 

To  read  NOS  data  points  from  tape,  use  the  following  commands: 

$  M0UNT/F0R/DENS-6 2  50/BLOCKS I ZE-5 120/RECORDS I ZE-40  device: 

(mounts  the  cape  on  tape  drive  "device:"  with  NOS  parameter  values) 

$  SET  MAGTAPE  device : /SKIP-FILES : n 

(skips  the  first  n  files,  if  necessary) 

$  FTCOPY  device :/FILES-m/BLOCKSIZE-5120/RECORD_SIZE-40  - 
outfile/REC0RD_SIZE-40 

(creates  the  output  file  in  the  current  account  directory) 

The  FILES-m  option  in  the  FTCOPY  command  specifies  that  the  next  m  files  are 
to  be  read.  The  "outfile"  created  will  contain  all  of  the  NOS  survey  data  in 
original  NOS  format,  consisting  of  a  registry  number,  Julian  date,  latitude, 
longitude,  depth,  and  a  cartographic  code  for  each  point  (see  Appendix  F) . 

if  desired,  the  user  may  select  points  in  a  particular  latitude/longitude 
range  from  this  output  file  by  running  the  program  FINDLLI .  This  program 
prompts  the  user  for  maximum  and  minimum  latitude/longitude  values  and  outputs 
only  those  points  within  chat  range.  The  registry  number,  latitude, 
longitude,  depth,  and  cartographic  code  are  printed  in  the  format  of  the 
original  NOS  file. 

B.  CONVERSION  PROGRAMS 

1 .  DSTLL2LE 

To  determine  desired  NOS  depth  points,  the  program  DSTLL2LE  ("DST 
Latitude/Longitude  to  Line/Element" )  takes  NOS  calibration  data  and  computes  a 
'line  and  element,  relative  to  an  entire  TM  quad  and  SPOT  scene  !*  uses  the 

ELAS  subroutine  LLUTM  ("Latitude/Longitude  to  UTM")  to  convert 
latitude/longitude  values  to  UTM  coordinates.  In  turn,  these  coordinates  are 
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used,  along  with  the  georeferencing  coefficients  generated  by  ELAS ,  to  compute 
each  point's  line  element  values  that  correspond  to  both  the  TM  and  SPOT 
image.  As  mentioned,  the  georeferencing  of  TM  or  SPOT  images  (i.e.,  finding 
the  correspondence  between  UTM  easting/northing  values  from  the  chart  and  the 
line/element  values  in  the  image)  using  ELAS  is  discussed  in  detail  in 
Appendix  A.  The  georeferencing  coefficients  are  usually  kept  in 
ELAS -generated  files  named  COEFUT.LEL  and  are  created  in  the  georeferencing 
process . 

In  the  FTCOPY  command  listed  previously,  the  file  called  "outfile"  (or 
the  output  of  Flh’DLLI,  as  the  case  may  be)  is  the  file  to  be  used  as  input  for 
DSTLL2LE .  Each  line  of  the  output  file  will  correspond  to  a  calibration 
point  and  will  contain  latitude,  longitude,  easting,  northing,  depth,  and  a 
line  and  element  position  for  both  TM  and  SPOT  data. 

While  running  DSTLL2LE  it  may  be  necessary  to  use  "junk"  files.  For 
instance,  if  only  TM  imagery  is  available,  then  a  junk  SPOT  coefficient  file 
and  image  file  are  needed.  The  junk  coefficient  file  (usually  named 
"COEFUT . JUNK" )  should  contain  six  lines  with  0.0  as  the  entry  on  each  line 
(these  six  zeros  represent  the  georeferencing  coefficients).  The  junk  image 
file  (usually  called  "JUNK. SPOT"  or  "JUNK . TM" )  has  only  one  element  and  one 
line  and  may  be  created  using  the  ELAS  PTiGR  AL  option  (i.e.,  the  allocate 
option  AL  in  the  FMGR  module  of  ELAS)  to  allocate  the  necessary  memory.  In 
reality,  the  junk  image  file  may  be  any  ELAS  readable  image  file  with  nonzero 
line/element  limits.  However,  using  junk  image  files  with  only  one  pixel, 
certainly  avoids  any  confusion  as  to  its  purpose  and  saves  a  considerable 
amount  of  disk  space. 

Because  many  of  the  NOS  files  are  large,  it  is  possible  that  points 
selected  by  DSTLL2LE  may  be  outside  a  desired  image.  Because  of  this,  a 
sifting  program,  LESIEVE  ("Line/Element  Sieve"),  is  used  to  process  the  output 
from  DSTLL2LE  and  select  only  those  points  within  a  user  - suppl :  e  d  range  For 
example,  the  user  may  want  only  those  points  which  have  pos  i  l  1  u:..-  .-.wuiriring  on 
the  TM  image  having  initial  element  2000,  last  element  2  511,  a*  line 
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2*71,  and  last  line  2982.  LESIEVE  allows  the  user  to  Input  these  limits 
incerac  c ive 1 y 

As  a  final  remark,  the  program  DSTLL2LE  assumes  that  the 
lacitude/longitude  coordinates  taken  from  the  NOS  files  are  referenced  to  the 
same  geodetic  datum  as  the  datum  of  the  chart  used  in  georeferencing.  If  this 
is  not  the  case,  program  C0RLL2LE  ("Corrected  Latitude/Longicude  to 
Line /Element'1 )  should  be  used  in  place  of  DSTLL2LE.  C0RLL2LE  is  virtually  the 
same  as  DSTLL2LE,  only  it  allows  the  user  to  interactively  supply  corrections 
to  bring  the  NOS  latitude/longitude  values  into  conformance  with  the  chart 
latitude/longitude  values.  See  Appendix  G  for  the  procedure  to  determine  the 
corrections  for  conversion  from  one  datum  to  another. 

2.  UTM2ST 

The  program  UTM2ST  ("UTM  to^SPOT/TM” )  takes  NOAA  calibration  data  end 
computes  a  line  and  element  relative  to  an  entire  TM  quad  and  SPOT  scene.  The 
input  file  for  UTM2ST  is  generated  by  the  digitizing  routines  within  ELAS . 

The  output  file  contains  easting,  northing,  depth  and  line  and  element 
positions  for  TM  and  SPOT  for  each  point.  As  in  the  NOS  situation,  "junk" 
files  may  also  be  needed. 

The  reader  is  encouraged  to  observe  the  sounding  depth  units  of  the  NOAA 
chart  being  used.  For  DSTMAKER  (discussed  later  in  this  document)  to  process 
s  .lepth  properly,  these  units  must  be  feet.  If  the  chart  values  have  ocher 
o'  its,  then  a  conversion  is  necessary  when  entering  values  into  the  digitizer 
keypad.  For  example,  if  the  depth  is  2  fathoms,  input  12  (1  fathom  -  6  feet) 
into  the  keypad  (see  Appendix  A). 

C.  SORTING  THE  DATA 

The  output  file  from  LESIEVE  consists  of  points  in  a  parr:  r 

1  rre/e lement  range.  Sorting  the  points  in  this  output  file  serve'  two  basic 
purposes.  First,  the  VAX/VMS  SORT  command  allows  for  the  deletion  of 
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duplicate  points.  This  option  is  particularly  useful  when  working  with  NOS 
data,  since  several  NOS  calibration  points  can  lie  within  the  same  pixel. 

Also,  sorting  points  (first  by  line,  then  by  element)  allows  for  more 
efficient  and  speedy  image  processing.  This  topic  will  be  discussed  further 
in  the  section  on  error  image  creation. 

SORT.COM  is  the  command  file  which  invokes  the  VaX/VMS  SORT  utility.  The 
main  command  in  this  file  is  given  below: 

$  S0RT/N0DUPLICATES/W0RK_FILES-2  - 

/KEY-( POSITION: 63, SIZE: 8, NUMBER-1)  - 
/KEY-( POSITION:  55  .  SIZE  :  8  ,  NlTiBER-2 )  - 
filenaroel  filename2 

As  can  be  seen  from  the  command,  another  file  is  created  ( " f ilename2 " )  in  the 
sorting  process  and  is  equal  in  si2e  or  smaller  than  the  input  file 
( " f ilenamel" ) .  Usually,  after  the  sort  has  completed,  the  unsorted  file  is 
deleted.  The  positions  63  and  55  are  predetermined  values  from  the  NOS  format 
and  represent  the  position  (in  " f ilenamel" )  of  a  point's  line  and  element, 
respectively. 

In  addition  to  prompting  the  user  for  "filename!"  and  "filenarae2", 
SORT.COM  also  requests  a  "scratch"  disk  to  be  used  for  the  sorting  workfiles. 
This  disk  is  assigned  to  SYS$SCRATCH  and  deassigned  when  the  command  file  has 
SUCCESSFULLY  completed  (in  other  words,  if  the  command  file  is  interrupted 
before  completion,  the  user  must  manually  "$  DEASSIGN  SYS$SCRATCH" ) .  Again, 
because  the  NOS  files  are  large,  this  assignment  is  needed  so  that  the  memory 
of  a  user's  disk  (normally,  USER$UISK)  is  not  consumed  by  the  large  workfiles. 
However,  if  che  user  has  enough  free  memory  on  USER$DISK,  USER$DISK  may  be 
input  as  the  scratch  disk. 


D.  SIEVE  PROGRAMS 


Some  additional  routines  for  the  user  are  the  following: 


DEPTHS IEVE  -  makes  a  depth  cut  based  on  maximum  depth. 

MODSIEVE  -  takes  every  nth  point  of  the  input  file. 

These  programs  are  self-explanatory  and  accept  interactively  all  needed 
information . 

Before  the  next  phase  of  data  calibration  processing  is  performed,  the 
program  EOF  must  be  run  on  the  final  sieved  file.  EOF  places  end-of-file 
records  on  the  input  file  accepted  by  the  program  DSTMAKER .  EOF  must  be  run 
after  all  sieving  has  occurred. 

E.  DSTMAKER 

Program  DSTMAKER  creates  a  data  summary  file  of  all  gray  levels  for  t:.c 
calibration  points  that  are  tc  U  used  in  the  regressions  for  calculation  of 
the  bathymetric  model(s) . 

The  program  will  access  both  TM  and  SPOT  imagery  of  the  same  area  and 
compile  the  appropriate  gray  levels  for  each  point  given  in  the  input  file. 

The  gray  levels  written  to  the  DST  file  will  be  from  bands  1-5  of  TM  imagery 
and  1-3  of  SPOT  imagery.  DSTMAKER  also  writes  to  the  output  file  three  header 
lines  of  user-supplied  information  and  comments.  In  general,  the  output  file 
from  DSTMAKER  should  be  named  with  a  ".DST"  extension. 

A  sample  DSTMAKER  interactive  session  follows.  Program  prompts  are 
indicated  by  a  and  user  responses  are  indented  for  clarity: 

$  RUN  DSTMAKER 

-Enter  calibration  file  name: 

PUERTO. DEPTH 

-Enter  'N'  if  calibration  from  NOS  tape 

-Enter  'C'  if  calibratioi.  from  NCAA  chart 
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•Enter  IM  image  file  name: 

DJ  BO : [ THFaY . TM . RICO ] PUERTOQUAD3 . DAT 

-Enter  SPOT  image  file  name : 

DJBO: [THFAY. SPOT] JUNK. SPOT 

-  Enter  comments : 

DST  comments:  It  is  suggested  that  the  user  include  calibration  file 

name  and  date,  and  NOT  go  beyond  132  characters. 

-Enter  desired  name  of  DST  file: 

PUERTO. DST 

•Enter  desired  name  of  histogram  file: 

PUERTO. HIST 

The  histogram  file  contains  histograms  relating  to  the  calibration  depths.  See 
Bran  et  al  (1979)  for  descriptions  of  these  histograms. 

Figure  1  is  a  generalized  overview  of  the  calibration  data  preparation, 
as  well  as  a  suggested  naming  scheme  for  intermediate  files.  PUERTOQUAD3.DAT 
is  the  rau  image  file  containing  a  TM  quad  of  the  Puerto  Rico  area. 

PUERTO  NOS  is  the  initial  "outflle"  created  by  the  FTCOPY  command  and  is  in 
original  NOS  format  (Note:  PUERTO. NOS  may  be  preprocessed  by  FINDLLI  as 
described  in  a  previous  section.)  It  should  also  be  noted  that  DSTLL2LE  and 
LESIEVE  must  be  performed  first;  SORT.COM,  MODSIEVE,  and  DEPTHSIEVE  can  be  run 
thereafter  in  any  order,  if  necessary.  The  input  file  to  DSTMAKER  should  have 
special  end-of-file  records,  created  by  EOF. 

In  Figure  1,  the  name  "PUERTO"  was  used  to  signify  data  from  the  Puerto 
Rico  area  The  "100"  in  PUERT0100 . MOD  means  every  100th  point  was  taken  from 
the  input  file  The  file  N0AA.DAT  is  the  file  generated  by  ELAS  when 
digitizing  points  by  hand. 

At  this  stage,  all  imagery  information  needed  for  regress!;-  analysis  is 
contained  in  the  DST  files.  The  satellite  imagery  files  ait  ;.ui  a^esaeu 
during  regression. 
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III.  US  INC  THE  DST  FILES 

Four  programs  use  Che  DST  tiles  to  implement  a  linear  regression  against 
the  calibration  data  to  calculate  the  bathymetric  model  coefficients.  For  a 
more  in-depth  description  of  these  algorithms,  see  Clark  et  al.  (1987)  and 
Bevington  (1969) . 

A.  M  INMAX  <4 

MINMAX4  performs  a  linear  regression  on  the  data  points  in  the  DST  file. 
Desired  data  points  are  selected  based  on  a  user-given  depth  range,  minimum 
depth  and  maximum  depth.  The  program  is  designed  to  utilize  a  maximum  of  four 
bands  and  can  accommodate  either  TM  or  SPOT  data  from  the  DST  file  but  not 
both  The  program  also  requests  values  for  the  L  infinities  (average  band 
values  over  deep  water)  but  does  not  select  data  points  based  upon  the  L 
infinity  values.  These  values  are  used  only  in  conjunction  with  regression 
(Clark  et  al . ,  1987) . 

B.  MINMAX7 


MINMAX7  performs  in  the  same  manner  as  MINMAX4  with  two  exceptions.  This 
program  uses  both  TM  and  SPOT  data  simultaneously  from  the  DST  file  and  can 
utilize  a  maximum  of  seven  bands. 

C.  LINF4 

LINF4  selects  calibration  points  from  the  DST  file  based  on  band  signal 
values.  It  can  accommodate  either  TM  or  SPOT  data  but  not  bet:.  d  tar. 
utilize  a  maximum  of  four  bands.  If  the  number  of  bands  to  be  us=c  is  N,  then 


che  following  check  is  performed  to  determine  if  a  point  is  to  be  used  in  the 
regression  >.  gv(i)  -  gray  value  in  band  i,  Linf(i)  -  L  infinity  for  band  i). 


] 

N'  - 

1 

EL-  2 

N  -  3 

N  -  4 

gv  (  1  ) 

> 

Linf ( 1) 

gv(l)  >  Linf (1) 

gv(l)  >  Lin:: ( 1 ) 

gv(l;  >  uinf(l) 

gv  ( 2 ) 

<- 

Linf (2) 

gv(2)  >  Linf (2) 

gv(2)  >  Linf (.2) 

gv(2)  >  Linf (2) 

g  v  (  3 ) 

<- 

Linf ( 3 ) 

gv(3)  <-  Linf (3) 

gv(3)  >  Linf (3) 

gv(3)  >  Linf (3) 

gv  (  4 ) 

o 

Linf (4) 

gv(4)  <-  Linf (4) 

gv(4)  >-  Linf (4) 

gv(4)  >  Linf (4, 

For 

example . 

if  N-2 ,  Linf ( 1 ) — 6 8  , 

Linf ( 2 ) — 1 7  ,  Linf ( 3' 

-14,  Linf(4)-7, 

gv(l)-69,  gv(2)-18,  gv(3)-14,  and  gv(4)-6,  then  the  point  will  be  selected  for 
use  in  the  regression. 


D.  LINF7 


LINF7  selects  points  in  the  same  manner  as  LINF4  but  is  designed  to  use 
both  TM  and  SPOT  data  together  and  a  maximum  of  seven  bands. 


E.  EXAMPLE  MINMAX4  RUN 

An  example  of  the  interactive  portion  of  the  regression  program  MINMAX4 
follows.  All  of  the  programs  are  similar  in  design  and  will  prompt  in  the 
same  manner  Computer  prompts  are  noted  by  a  while  responses  have  been 
indented  here  for  clarity.  Technical  note  comments  are  in  parentheses. 

$  RUN  MIN7iAX4 


-Enter  name  of  DST  file  to  use. 

' THFAY .TERRI . EXEC)KEY100 . DST 


•Enter  name  of  output  file. 


NOS4016  Ol'T 

-Enter  ' T'  for  TM  imagery 
-Enter  'S'  for  SPOT  imagery 
T 

-Enter  min  and  max  depths  to  get  from  calibration  file. 
0  16 

-Enter  number  of  bands  to  use  in  fit. 

3 

-Enter  the  LINF's  (band  1  to  3) 

68  17  14 


(At  this  point  the  program  will  display  the  line  and  element  limits  of  the 
imaee  file  as  stored  on  the  DST  file  header  and  allow  the  user  to  access  a 


smaller  portion  of  the  image  if  desired, 
provided . ) 

-Do  you  wish  to  make  changes?  (Y/N) 

N 

-No  changes  made. 


An  example  of  both  responses  is 

-Do  you  wish  to  make  changes?  (Y/N) 
Y 

-Enter  Initial  Elem  and  Last  Elem. 
2400  2911 

-Enter  Initial  Line  and  Last  Line: 

.  2472  1983 


(The  program  will  then  echo  to  the  screen  some  of  both  the  user-given  data 
and  the  program- generated  information.) 

The  output  file  created  will  contain  a  listing  of  all  the  user  given 
information  along  with  all  the  coefficients,  histograms,  and  otr.<  :  values 
generated  by  the  regression  program.  A  portion  of  this  data  is  e;:.oed  to 
summary  files  (see  section  IV).  In  this  example,  the  naming  devut  consists 
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of  the  calibration  type  (NOS),  Che  number  of  bands  (4),  and  the  values  for 
DM in  (0)  and  UMAX  (16).  If  this  had  been  an  LINF4  run,  then  the  output  file 
night  have  been  named  L4681714.N0S  ("LA"  -  LINFA ,  "681714  -  L  infinities, 

"NOS"  -  NOS  data). 


IV.  SUMMARY  FILES 

Each  of  the  four  regression  programs  accesses  two  previously  created 
files,  SUMMARY. LIS  and  SUMMARY . DBAS ,  and  appends  information  from  the  current 
run  to  these  files.  The  summary  file  SUMMARY. LIS  can  be  examined  from  any 
terminal.  Although  SUMMARY. D3AS  contains  the  same  summary  information  as 
SUMMARY . LIS ,  it  is  used  to  store  the  information  in  a  format  recognized  by 
DBASIII,  thus  allowing  for  a  data  base  of  all  runs  of  the  regression  programs. 
Corresponding  to  each  logical  record  of  a  SUMMARY  file  is  a  regression  run.  A 
complete  description  of  the  SUMMARY  logical  record  format  is  given  in  Table  1. 


TABLE  1.  Description  of  SUMMARY  Logical  Record.  Formats 
are  given  in  FORTRAN  notation. 


Record  Contents 

Pm  Tyge 

date 

char*9 

time 

char*8 

calibration  type 

char*4 

image  file  name  1 

char*40 

image  type  1 

char*4 

initial  element 

ir.tege  r*4 

last  element 

integer*4 

initial  line 

integer*4 

last  line 

integer*4 

image  file  name  2 

char*40 

image  type  2 


date  of  regression  run 

time  of  regression  run 

type  of  calibration  (NOS,  etc.) 

Image  name  from  first  sensor 

image  type 

initial  element  of  file 

last  element  of  file 

initial  line  of  file 

last  line  of  file 

image  name  from  sccot.o  sensor 

image  type 


char*4 
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initial  element 

integer*^ 

last  element 

integer*4 

initial  line 

integer*4 

last  line 

integer*4 

bands  used 

F7.2 

Linf  (1-7) 

7(F7 . 2) 

dmin 

F7.2 

dmax 

F7.2 

(A-A7) 

8(F7 . 2) 

(EA-EA7) 

8(F7 . 2) 

r '  s ( 1- 7 ) 

F7.2 

rraul 

F7.2 

calib  mean 

F7.2 

calib  rms 

F7.2 

cal  fitted  mean 

F7.2 

ecal  fit  mean 

F7.2 

cal  fitted  sigma 

F7 .2 

ecal  fit  sigma 

F7.2 

test  mean 

F7.2 

test  rms 

F7.2 

test  fitted  mean 

F7.2 

etest  fit  mean 

F7  .  2 

test  fitted  sigma 

F7.2 

etest  fit  sigma 

F7.2 

»  calib.  pts . 

F7.2 

*  test  pts. 

F7.2 

avg.  percent  error 

F7.2 

initial  element  of  file 
last  element  of  file 
initial  line  of  file 
last  line  of  file 
bands  used  in  regression 
L  infinities 
minimum  depth 
maximum  depth 

multiple  regression  coefficients 
uncertainty  in  coefficients 
correlation  coefficient  for  each 
band 

multiple  correlation  coefficient 
mean  error  from  calib.  points 
residual  RMS  from  calib.  points 
mean  of  gausslan  fit  to  resids. 
uncertainty  in  gaussian  mean 
sigma  of  gaussian  fit  to  resids. 
uncertainty  in  gaussian  sigma 
mean  of  resids  from  test  points 
RMS  of  resids  from  test  points 
mean  of  gaussian  fit  to  test 
resids 

uncertainty  in  gaussian  mean 
sigma  of  gaussian  fit  to  test 
resids 

uncertainty  in  gaussian  sigma 
number  of  calibration  points 
number  of  test  points 
average  percent  erro. 
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V.  MAKING  bathymetric  images 

Three  programs  create  single -channel  bathymetric  images  by  using  the 
coefficients  generated  during  regression: 

(1)  TMBATHY  -  creates  a  TM  bathymetric  image 

(2)  SPOTBATHY  -  creates  a  SPOT  bathymetric  image 

(3)  OVLBATHY  -  creates  a  bathymetric  image  from  TM  and  SPOT  data; 

The  input  image  file  must  be  TM  overlayed  onto  SPOT  and 
can  be  created  with  the  ELAS  module  OVLA. 

An  example  of  the  interactive  portion  of  the  bathymetry  program  TMBATHY 
follows.  All  three  programs  are  similar  in  design  and  will  prompt  in  the  same 
manner .  Computer  prompts  are  noted  by  a  while  responses  have  been 
indented  for  clarity. 

$  RUN  TMBATHY 

-This  program  is  designed  to  handle  data 
-in  the  following  format: 

-For  TM  data  the  input  file  oust  be 
-bands  1,  2,  3,  4,  5,  in  that  order. 

-Enter  TM  input  file: 

DJBO : (THFAY.TM1KEYQUAD2.DAT 

-Enter  output  file: 

DJBO: [ THFAY . TM ] KEYQUAD2  BAT 
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-What  comments  would  you  like  written  to  the 
-  output  file?  Please  limit  them  to  132  characters. 

input  file:  KEYQUAD2.DAT,  3aug88,  coeffs.  from  L4681714  run. 

•Enter  L  infinities  in  the  following  order: 

•TM  bands  1-5 

•Enter  L  infinity  for  band  1 
•(If  no  L  infinity,  enter  0) 

68 

•Enter  L  infinity  for  band  2 
•(If  no  L  infinicy,  enter  0) 

17 

-Enter  L  infinity  for  band  3 
-(If  no  L  infinity,  enter  0) 

14 

-Enter  L  infinity  for  band  4 
•(If  no  L  infinity,  enter  0) 

7 

•Enter  L  infinity  for  band  5 
-(If  no  L  infinicy,  enter  0) 

10 

-Enter  coefficients  in  the  following  order: 

•  A0 

-A1-A4  for  TM  bands  1-4 

•Enter  coefficient  A(0) 

-(If  no  coefficient,  enter  0) 

11 . 307 

-Enter  coefficient  A(l) 
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•(If  no  coefficient,  enter  0) 


-Enter  coefficient  A(2) 

-(If  no  coefficient,  enter  0) 
-3.607 

-Enter  coefficient  A(3) 

-(If  no  coefficient,  enter  0) 


-Enter  coefficient  A(4) 

-(If  no  coefficient,  enter  0) 


-Enter  coefficient  A(5) 

-(If  no  coefficient,  enter  0) 


Once  completed,  the  output  image  file  will  have  two  header  records,  the 
first  containing  the  first  record  of  the  input  image  file  and  the  second 
containing  the  user-supplied  information  (coefficients,  L  infinities,  etc.) 
This  information  can  be  seen  at  any  terminal  screen  by  using  the  VAX/VMS 
command  "$  DUMP/DEC". 

VI  FILTERING  THE  BATHYMETRIC  IMAGES 


By  passing  a  m  x  m  filter  window  over  the  image  (where  "m"  is  an  odd 
positive  integer),  program  EDGE  implements  a  selective  filter  for  filtering 
s ingle -channel  images.  This  program  is  designed  to  be  an  edge-preserving 
noise -smoothing  filter.  The  preservation  of  edges  is  accomplished  by 
symmetric  nearest  neighbor  (SNN)  logic. 

The  SNN  routine  is  based  upon  the  following  algorithm  ; H -•  r - ■  r  ^  et  al 
1987  ).  Let  b,  c,  and  d  be  the  gray  values  of  three  window  pixt-ir  where  c  is 
the  value  of  the  center  pixel  and  b  and  d  values  for  a  symmetric  pair.  (Given 
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in  Figure  2  is  an  example  of  what  is  meant  by  "symmetric  pairs"  about  the 
center  pixel  of  a  5  x  5  filter  window.)  First  calculate  cc  -  c  +  c.  Then, 
from  each  symmetric  pair,  select  one  pixel  as  follows: 

if  (b+d>cc)  then 

if  (b>d)  select  d 
else  select  b 
else  if  (b+d<cc)  then 

if  (b>d)  select  b 
else  select  d 
else  select  c 

The  center  pixel  is  then  assigned  a  value  equal  to  a  user - suppl ied  statistic 
based  on  the  (m2+l)/2  selected  pixels  in  the  window.  In  general,  from  each 
symmetric  pair,  the  algorithm  selects  the  pixel  which  is  nearer  in  gray  value 
to  the  center  pixel.  Reasoning  behind  SNN  logic  can  be  seen  in  Figure  2:  If 
the  filter  window  has  a  straight  edge  separating  two  distinct  gray  value 
distributions,  most  of  the  pixels  selected  by  the  SNN  criterion  will  fall  on 
the  same  side  as  the  center  pixel.  In  the  case  of  a  tie  during  comparison, 
the  center  pixel  itself  is  selected  for  that  particular  symmetric  pair 
comparison . 

The  SNN  logic  is  invoked  only  when  a  filter  window  contains  a  land  pixel. 
On  all  other  filter  windows  the  entire  contents  of  the  window  is  used  in  the 
filtering  process.  By  doing  this,  land  and  near-shore  edge  features  are 
preserved . 

The  user  may  choose  three  filtering  options: 

(1)  Mean  -  replaces  the  value  of  the  window  center  pixel  with  the  mean 
value  of  selected  pixels. 
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(2)  Median  -  replaces  the  value  of  the  window  center  pixel  with  the 

median  value  of  selected  pixels. 

(3)  Minimum  -  replaces  the  value  of  the  window  center  pixel  with 

the  minimum  value  of  selected  pixels. 

According  to  Harwood  et  al.  (1987),  the  SNN-median  filter  produces  slightly 
better  results  chan  the  SNN-mean  in  terms  of  edge  preservation,  however,  the 
SNN-mean  is  computationally  more  efficient. 

Diagrammed  in  Figure  3  is  a  summary  of  bathymetric  image  creation  and 
filtering  (TM  data),  along  with  suggested  filenames.  VIEQUES. RaU  is  a 
five-channel  TM  image  file  and  is  named  "VIEQUES”  to  signify  data  from  the 
area  near  the  island  of  Vieques. 

A  more  generalized  program,  EDGEMULTI ,  uses  the  SNN  selection  criteria  on 
each  window,  regardless  of  the  pixels  present;  that  is,  no  deference  is  made 
if  the  window  doesn't  contain  a  land  pixel.  In  addition,  this  program  accepts 
multichannel  images  and  prompts  the  user  for  the  number  of  channels  and  the 
channels  to  be  filtered.  The  unfiltered  channels  are  simply  copied  to  the 
output  file.  As  with  EDGE,  this  program  allows  the  user  to  enter  one  of  the 
previously  mentioned  three  filtering  options.  The  main  purpose  of  EDGEMULTI 
is  to  filter  images  which  are  largely  comprised  of  land  or  shoreline  pixels 
and  very  few  water  pixels. 

VII  ERROR  IMAGE  CREAT' JN 

Once  coefficients  have  been  generated  from  a  regression  run  (MINMAX^, 
MINMAX7,  LINF4,  or  LINF7),  the  program  ERROR  can  be  used  to  generate  an  image 
displaying  each  calibration  point  color-coded  by  the  error  associated  with 
that  point's  depth.  The  input  image  is  a  single-channel  image  containing 
exactly  two  classes:  one  for  land  pixels  and  one  for  water  pixels  The 
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output  image  is  the  same  single-channel  image,  with  the  calibration  points 
given  a  value  determined  by  their  computed  error.  The  error  values  are 
divided  into  bins,  normally  of  1-m  width,  as  illustrated  in  Table  2.  Each 
calibration  point  is  assigned  a  class  associated  with  the  error  bin  containing 
the  point's  error  value.  A  user-defined  co^r  is  then  assigned  to  each  bin 
value . 


TABLE  2. 

Example  Er 

Ranee 

Class 

<-  -8 

99 

(-8,-7] 

100 

(-7,-6] 

101 

(-6,-5] 

102 

(-5,-4] 

103 

(-4,-3] 

104 

(-3,-2] 

105 

(-2,-1] 

106 

(-1,0] 

107 

(0,1] 

108 

(1,2] 

109 

(2,3] 

110 

(3,4] 

111 

(4,5] 

112 

(5,6] 

113 

(6,7] 

114 

(7,8] 

115 

>  8 

116 

Before  EFIROR  can  be  run,  the  user  must  first  create  the  "iund  water" 
image  by  running  LANDWaTER.  The  input  image  must  have  five  chart, e.s.  and 
channel  5  values  (usually  TM  band  5,  but  other  infrared  channels  rr.av 


be  used) 
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are  used  to  distinguish  between  land  and  water  by  simple  thresholding  (for 
example,  if  band  5  value  >  10,  pixel  is  land;  else  pixel  is  water).  The 
output  file  created  will  be  used  as  input  for  ERROR. 

When  ERROR  is  executed,  the  user  will  be  prompted  for  a  DST  filename, 
land/water  filename,  error  image  filename,  and  output  filename.  The  output 
file  will  contain  the  following  summary  information:  total  number  of  points 
with  error  <-  *8  or  error  >  8,  total  number  of  points  plotted,  and  total 
number  of  points  out  of  range.  Comments,  up  to  132  characters,  may  also  be 
supplied  by  the  user  at  this  point. 

For  the  next  phase  of  interaction,  a  set  of  coefficients  and  L  infinities 
are  required.  Similar  to  the  programs  which  create  bathymetric  images,  the 
prompts  guide  the  user  in  entering  these  values.  Once  the  values  have  been 
obtained,  a  depth  is  calculated  for  each  point  (if  it  is  in  line/element 
range)  in  the  DST  file  by  the  formula: 

CDEFTH  -  N1NT(A(0)  +  A( 1 ) *AL0G (MAX( FLOAT (GV( 1 ) -L(l)),10)) 

+  A(2)*ALOG(MAX(FLOAT(GV(2)-L(2)) ,1.0)) 

+  A( 3)*ALOG(MAX( FLOAT (GV(3)-L(3)) ,1.0)) 

+  A(4)*AL0G(MAX( FLOAT (GV(4) -L(4)),1.0))) 

where  A(i)  denotes  a  coefficient,  L(i)  denotes  an  L  infinity  value,  CV(i) 
denotes  the  band  i  value  of  the  calibration  point,  and  CDEPTH  denotes 
calculated  depth.  ALOG ,  NINT,  MAX,  FLOAT  are  the  standard  FORTRAN  specific 
functions.  The  error  for  the  calibration  point  is  then  found  by  subtracting 
this  calculated  depth  from  the  actual  depth  obtained  from  the  DST  file.  An 
appropriate  value  (determined  by  the  above  ranges)  is  then  assigned  to  the 
pixel.  When  execution  has  completed,  the  error  image  can  be  displayed  through 
the  ELaS  module  COMD.  With  an  appropriate  color  table,  various  error  ranges 
car,  be  highlighted  and  color-coded. 

It  should  be  noted  that  ERROR  accepts  DST  files  which  are  bc::ed.  where 
the  primary  key  is  line  and  the  secondary  key  is  element.  By  having  the 
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sorted  information,  an  image  line  is  read  in  only  once,  all  appropriate  pixels 
on  thac  line  are  then  "fixed,"  and  finally  the  line  is  written  out,  Without  a 
sorted  DST  file,  ERROR  is  likely  to  read  and  write  an  entire  line  more  than 
once,  causing  the  execution  time  for  ERROR  to  increase. 

ERROR  also  catalogs  most  of  the  user-supplied  information  internal  to 
each  image  it  creates.  The  file  header  is  record  1.  The  information  is  kept 
in  record  2  of  the  file  and  can  be  seen  by  executing  the  following  VAX/VMS 
command:  $  DUMP/DEC  filename.  All  coefficients,  L  infinities,  filenames, 

user-supplied  comments,  and  the  total  point  count  are  written  to  this  record 
in  a  format  that  is  easily  readable  from  the  terminal  screen. 

To  summarize,  Figure  4  gives  the  order  of  execution  and  suggested 
filenames  to  use  when  creating  an  error  image  (VIEQUES. RAW  is  a  five-channel 
image  file  of  TM  data). 


VIII.  final  notes 


At  present,  the  source  code  for  the  programs  discussed  in  this  document 
is  located  in  USER$DISK :[ BATHY . SOURCE ]  and  the  executable  code  is  located  in 
USERSDISK: [BATHV.EXEC] .  USER$DISK  is  the  user’s  disk  on  the  VAX  U/780,  node 

A35 . 

Appendix  C  contains  an  example  of  a  menu-driven  command  file, 
BATHVMETRY.COM,  which  offers  options  to  run  most  of  the  aforementioned 
programs.  In  addition,  appendices  D  and  E  contain  detailed  instructions  on 
how  to  obtain  a  hardcopy  output  of  an  image,  using  a  Matrix  Instruments 
came  ra . 


IX.  SUMMARY 
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The  software  discussed  in  this  document  is  the  result  of  an  effort  to 
calculate  near-shore  water  depths  using  remotely  sensed  multispectral  imagery. 
The  technique  can  be  summarized  into  two  broad  phases,  that  phase  which  deals 
with  calibration  data  preparation  and  the  phase  which  is  associated  with  the 
processing  of  this  data.  In  calibration  data  preparation,  all  software  is 
geared  toward  the  completion  of  a  DST  file  that  contains  all  information 
relative  to  the  calibration  depth  points.  This  DST  file  is  then  used  by  the 
appropriate  regression  program  to  calculate  the  relationship  between  imagery 
digital  values  and  depth,  and  also  to  compute  the  error  associated  with  this 
relationship.  Once  this  correspondence  is  determined,  a  bathymetric  image  can 
b«.  .n  and  filtered  to  show  coastal-zone  bathymetry. 
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FIGURE  3.  Summary  of  Bathymetry  Calculation  and  Filtering 


APPENDIX  A:  Georeferencing  an  Image  Using  ELAS 


(By  Gregory  Terrie  and  Michael  Trenchard, 
updated  by  T.  Green-Douglas  and  V.  Miller) 


INTRODUCTION  -  This  appendix  guides  the  reader  through  a  step-by-step  process 
to  compute  a  set  of  georeferencing  coefficients  to  convert  Universal 
Transverse  Mercator  (UTM)  easting/northing  coordinates  to  line/element  values 
and,  if  desired,  to  create  a  georeferenced  image  using  the  ELAS  image 
processing  package.  It  is  assumed  that  the  reader  has  already  selected  an 
image  to  process  and  that  the  reader  has  some  knowledge  of  the  use  of  ELAS. 

PREPARATION  -  The  following  steps  should  be  followed  before  entering  the  ELAS 
georeferencing  modules: 

(1)  Obtain  all  the  maps  for  the  area  of  interest  and  number  them  using  the 
method  outlined  in  this  documentation.  If  NOS  calibration  data  are  to  be  used 
in  connection  with  the  coefficients  produced  in  the  georeferencing  process, 
then  particular  attention  must  be  given  to  the  datum  associated  with  the  maps. 
Most  NOS  data  sets  have  latitude/longitude  coordinates  relative  to.  North 
American  datum,  1927;  see  NOS  documentation  for  a  point-of -contact  to  which 
questions  regarding  the  datum  for  a  specific  area  should  be  addressed. 

(2)  Determine  the  UTM  coordinates  of  the  four  corners  of  each  map.  The 
corners  should  be  well  defined,  such  as  intersections  of  latitude/longitude 
lines,  and  are  not  necessarily  the  corners  of  the  entire  map.  If  the 
coordinates  are  in  latitude/longitude,  then  use  ELAS  module  CV'RT  to  convert 
these  values  to  UTM  coordinates. 


(3)  Store  the  map  numbers  and  the  four  corner  coordinates  for  each  map  in 
an  external  file  using  an  edit  command  (i.e.,  EDT  filename  in  VMS).  Name  the 
file  QUAD . DAT  and  then  run  TSK$ELAS : QUADBLD . EXE .  It  will  ask  for  an  output 
file;  respond  with  "QUAD.".  See  Appendix  B  for  details  on  building  the 
QUAD . DAT  file. 

(h)  Turn  on  the  digitizer  (toggle  switch  is  located  on  small  black  console 
under  the  digitizer).  Press  the  red  reset  button  (next  to  the  on/off  switch) 
and  the  RS232  button  on  the  digitizer  cursor  keypad. 

(S)  Enter  ELAS  and  set  up  the  control  file  so  that  usage  ID1  is  assigned 
to  the  data  file  from  which  control  points  are  to  be  picked  (ex: 

VIEQUES.DAT).  Assign  usage  DG  to  the  digitizer  (ex:  AC  TXB3:  DG ,  where  TXB3: 
is  the  device  number  for  the  digitizer)  and  assign  DISP  to  the  display  device 
(ex:  EPAl) . 

NUMBERING  THE  MAPS  -  The  map  numbering  system  was  designed  so  that  the  user 
could  easily  catalog  a  large  number  of  orthophotoquads.  The  maps,  however, 
can  be  of  various  types,  and  all  maps  are  not  required  to  be  orthophotoquads. 
These  maps  should  be  numbered  by  groups  of  four  (quads)  and  the  subsets 
numbered  in  a  counterclockwise  direction  beginning  with  the  upper-left 
quadrangle . 

READING  AND  RECORDING  THE  CORNER  COORDINATES  -  Enter  the  ELAS  module  CPPP  by 
typing  "CPPP"  at  the  "FMGR?"  prompt.  Be  sure  that  the  map  being  used  is 
stretched  tightly  and  mounted  securely  to  line  digitizer.  Type  "IM" 

(initialize  map)  at  the  computer  terminal;  ELAS  will  prompt  the  user  for  a 
quad  sheet  number  and  quadrant  numbejr .  If  only  one  map  is  being  used  in  the 
georeferenc ing  process,  as  is  usually  the  case,  respond  with  "1”  :  each  of 
these  prompts.  ELAS  will  then  request  input  of  the  first  corner  point.  Place 
the  digitizer  cursor  keypad  on  the  point  of  the  desired  upper- left  corner  of 


the  map,  centering  this  point  inside  the  cross  hairs  in  the  small  clear  lens 
of  the  keypad,  and  press  "3"  on  the  digitizer  keypad.  This  command  sends  the 
point's  coordinates  to  ELAS.  Rotate  counterclockwise  and  enter  the  other 
three  corner  points  in  a  similar  manner,  being  as  accurate  as  possible.  When 
finished,  RMS  values  (UTM  and  LS)  will  be  returned.  It  is  a  good  idea  to 
attempt  several  of  these  "map  tie-downs"  (i.e.,  retype  "IM"  and  repeat)  and 
stop  when  the  RMS  values  are  smaller  than  the  imagery  pixel  resolution. 

SELECTING  CONTROL  POINTS  -  A  variety  of  commands  may  be  used  to  display  the 
image  from  which  the  control  points  are  to  be  taken.  First,  type  "RST"  (reset 
to  display  overall  scene)  to  view  the  entire  scene.  Move  the  screen  cursor  to 
an  area  in  which  control  points  can  be  chosen  and  use  the  "CTR"  command  to 
select  a  new  image  center.  A  512  x  512  portion  will  appear  on  the  screen.  To 
display  a  particular  channel  (for  instance,  channel  5  of  Landsat  TM  imagery), 
use  the  command  "RI  5".  Typing  "XF  2"  (expansion  factor  set  to  2)  before 
displaying  an  image  will  enlarge  the  image. 

Enter  the  "pick  point  mode"  by  typing  "PP"  at  the  "CPPP?"  prompt.  (Pick 
points  that  have  a  relatively  clear  position  on  both  the  map  and  the  image, 
such  as  distinctive  geographical  features.  In  general,  try  to  emphasize 
natural  features  such  as  coastlines  rather  than  roads,  airports,  etc.)  ELAS 
will  then  request  a  point  from  the  digitablet.  Refer  to  the  map  on  the 
digitablet  and  digitize  the  desired  point  (press  "3"  on  the  keypad),  move 
display  screen  cursor  to  the  correspoinding  point  and  enter  a  carriage  return. 
EI.AS  will  respond  with  the  element  and  line  for  that  point  and  then  request 
another  point.  Continue  to  pick  points  in  this  manner  until  a  desired  number 
of  well-distributed  points  have  been  chosen  (choose  at  least  15).  While 
picking  points,  be  sure  to  record  (on  paper)  a  general  'location  for  each 
point;  for  example, 


point  1  -  elem:2300  line:2378  -  Pier,  west  of  Fleming  Key 


point  2  -  elem: 2250  line: 2536  -  southern  tip  of  Archer  Key 

Press  "5"  on  the  digitizer  keypad  to  get  out  of  the  "pick  point  mode".  Type 
"RMS"  (calculate  root  mean  square).  A  listing  of  the  points  that  have  been 
selected  will  be  given  along  with  the  RMS  error.  If  the  RMS  error  for  point  n 
is  not  acceptable  (e.g.,  30  meters  or  more),  use  "DEP  n"  to  delete  point  n. 
Note  that,  after  a  point  is  deleted,  a  resequencing  of  point  numbers  occurs. 
Thus,  if  deleting  more  than  one  point,  be  sure  to  delete  the  highest  numbered 
point  first  (e.g.,  DEP  15,  DEP  7,  DEP  3  <carriage  return>) .  RMS  can  be  rerun 
to  recalculate  the  RMS  error.  If  desired,  "PP"  can  be  used  again  to  add  more 
points . 

It  is  wise  to  choose  control  points  that  are  well  distributed  throughout  the 
image.  Selecting  points  in  a  smill  area  may  yield  "acceptable"  RMS  values, 
but  the  georeferencing  coefficients,  which  are  used  to  convert  UTM 
easting/northing  values  to  line/eleoent  values,  may  not  yield  satisfactory 
results  away  from  this  area.  When  finished  selecting  points,  a  good  way  to 
test  the  coefficients  is  to  use  the  CPPP  directive  DCTR.  A  point  can  be 
selected  from  the  map  on  the  digitizer  (press  "3"  on  the  keypad)  and  the 
corresponding  scene,  with  that  point  as  its  center,  will  scroll  onto  the 
screen . 

CREATING  COEFFICIENTS  AND  GEOREFERENCED  IMAGE  -  Enter  the  ELAS  module  PMGC  by 
typing  "PMGC"  at  the  "CPPP?"  prompt.  Type  "Cl"  (compute  mapping  coefficients 
interactively) .  If  you  wish  the  georeferencing  constants  to  be  output  to  an 
external  file,  respond  with  "Y"  to  the  ELAS  prompt  "OUTPUT  CONSTANTS  TO 
COEFl'T . LEL? " .  Enter  ELAS  module  PMGE  and  type  "SP  LP"  to  set  parameters,  list 
parameters.  Input  the  appropriate  values  for  each  of  the  parameters  MAXE 
(maximum  easting),  MINE  (minimum  easting),  MAXN  (maximum  northinr''.  MINN 
(minimum  northing),  referring  to  the  four  corner  coordinates  of  the  map. 
Parameters  HT  and  UID  refer  to  the  pixel  size  of  the  image  (e  g  .  30  x  30) . 


Parameter  ODF  is  the  output  filename.  After  the  parameters  have  been  set, 
type  "EX"  and  "RUN”. 

This  completes  the  creation  of  the  warped,  georeferenced  image  (the  ODF  file 
mentioned  above). 

SELECTING  DEPTH  POINTS  -  Once  Che  georeferenc ing  process  is  completed,  depth 
points  can  be  chosen  for  calibration  purposes.  To  select  depth  points,  enter 
the  DGTZ  module  and  type  "IN"  to  initialize  map.  ELAS  will  respond  with  the 
prompt  "DIGITIZE  POINT  1  THEN  INPUT  X.Y  VALUES".  The  user  then  places  the 
digitizer  keypad  on  the  upper  left  corner  of  the  chart  and  presses  "3”, 
centering  the  cross  hairs  in  a  similar  manner  as  with  the  CPPP  map  tie-down. 
The  easting  (X)  and  northing  (Y)  values  for  that  corner  are  then  typed  at  the 
cerminal.  Continue  similarly  in  a  counterclockwise  direction  for  the  next  two 
corner  points  (the  upper  right  corner  point  is  not  needed). 

Next,  type  "PPD"  to  enter  the  "pick  depth  point"  mode  and  respond  with  a  name 
to  the  prompt  "WHAT  POINT  NAME  ?  (POINT  NUMBER  WILL  BE  APPENDED)".  A  single 
letter,  such  as  "A",  will  suffice  for  this  purpose.  Center  the  digitizer 
keypad's  cross  hairs  on  a  chart  sounding  and,  with  a  steady  hand,  enter  the 
following  key  sequence:  depth  -->  DP  -->  STR  -->  EN  -->  3.  The  key  "DP" 
represents  the  decimal  point  of  the  depth,  so  a  number  key  may  be  punched 
after  this  key  and  before  the  "STR"  key.  If  "5"  rather  than  "3"  is  pressed 
after  "EN",  the  user  exits  the  pick  point  mode.  Below  are  some  example.,. 


chart  sounding 

kev  seauence 

10.0 

1 , 

0,  DP,  STR,  EN, 

3 

S.  2 

5  , 

DP,  2,  STR,  EN, 

3 

13.7 

1, 

3.  DP.  7,  STR, 

EN  ,  5  i  \  a  • 

; .  ■  i  n  r 

A  file,  FOR025.DAT,  will  be  created  and  will  contain  the  following 
information,  in  this  order,  for  each  point:  easting,  northing,  depth, 
e lement ,  1 ine . 


NOTE:  For  more  information  about  the  Numonics  digitablet  and  keypad,  see  the 

2300  USERS  MANUAL,  NUMONICS  DIGITABLET  in  the  Pattern  Analysis  Lab, 


APPENDIX  B:  Description  of  QUAD.DAT 


The  quad  file  QUAD.DAT  contains  the  map  group  numbers,  the  quad  sheet 
numbers,  and  the  four  corner  points  for  each  map  recorded  in  UTM  coordinates. 
These  data  are  contained  in  an  external  file  called  QUAD.DAT  which  is  read  by 
the  georeferencing  routines  of  ELAS  for  tying  down  images  to  corresponding 
maps . 

QUAD.DAT  should  be  built  with  the  map  group  numbers  located  in  columns  1-3, 
the  individual  quad  sheet  numbers  in  column  4,  and  the  UTM  coordinates  in 
columns  24  through  78.  The  coordinates  should  be  in  sets  of  two  with  casting 
first,  followed  by  the  northing.  The  coordinates  of  the  upper  left  hand 
corner  of  the  quad  sheet  will  be  the  input  for  the  first  set.  The  remaining 
corner  points  must  then  be  entered  in  a  counterclockwise  direction. 

An  example  of  a  typical  QUAD.DAT  file  is  shown  below.  Column  numbers  have 
been  added  for  clarity  on  data  format  but  should  not  be  written  in  the  file 

TYPICAL  QUAD.DAT  PILE 
c 

c  00  2  3  5  6  7 

1  34  4  8  2  6  8 

11  2374694237604  2370204223730  2479804223383  2484104237257 

After  the  file  QUAD.DAT  has  been  created,  the  program  QUADBLD.EXE  should  be 
run.  Ql'ADBLD  EXE  reads  in  the  QUAD.DAT  file  created  above  and  outputs  another 
quad  file,  which  is  readable  by  ELAS».  This  output  file  must  be  named  "QUAD." 
because  that  is  the  filename  searched  for  by  the  ELAS  georefei  er..  ir.g  modules. 
QUADBLD.EXE  will  prompt  the  user  for  the  output  filename. 


APPENDIX  C:  Menu-Driven  Command  File 


The  following  is  an  example  of  a  command  file,  BATHYMETRY.COM,  which  allows 
the  user  to  select  options  from  the  areas  of  bathymetry  calculation  (options 
1-  4)  or  image  processing  (options  5-7). 

$  SET  NOVERIFY 

$  ASSIGN  SYSSCOMMAND:  SYS$INPUT 
$  INQUIRE  INQUIRE/NOPUNCT 
$  WS  WRITE  SYS$OUTPUT 
SMENU- 
$  W'S  "  " 

$  WS  "  " 

?  WS  "  OPTIONS  " 

S  WS  " . " 

$  WS  "1  -  Paredes  &  Spero  model  fit,  TM  or  SPOT,  cut  on  depths" 

$  WS  "2  -  Paredes  &  Spero  model  fit,  TM  and  SPOT,  cut  on  depths" 

$  WS  "3  -  Paredes  &  Spero  model  fit,  TM  or  SPOT,  cut  on  L  infinities" 

$  WS  "4  -  Paredes  &  Spero  model  fit,  TM  and  SPOT,  cut  cn  L  infinities" 

S  WS  "5  -  Create  Bathymetric  image,  TM" 

$  WS  "6  -  Create  Bathymetric  image,  SPOT" 

$  WS  "7  -  Create  Bathymetric  image,  TM  overlaid  onto  SPOT" 

$  WS  "8  -  END" 

$  WS  "  " 

$  WS  "  " 

S' 

$  INQUIRE  OP  "  Enter  option:  " 

$  IF  OP  .EOS.  "1"  THEN  GOTO  0P1 

$  IF  OP  . EQS .  "2"  THEN  GOTO  0P2 

$  IF  OP  EQS.  ”3"  THEN  GOTO  0P3 


$  IF  OP  .  EQS .  "V  THEN  GOTO  0P4 

$  IF  OP  EQS  "5"  THEN  GOTO  OPS 

$  IF  OP  .EQS.  "6"  THEN  GOTO  OP6 

$  IF  OP  .EQS.  "7"  THEN  GOTO  OP7 

$  IF  OP  .EQS.  "8"  THEN  GOTO  ENDIT 

$! 

$OPl : 

$  RUN  USER5DISK: [ BATHY . EXEC ] MINMAX4 
$  GOTO  MENU 
$' 

$OP2  : 

$  RUN  US ER$DISK: (BATHY. EXEC] MINMAX7 
$  GOTO  MENU 
$' 

$OP3  : 

$  RUN  USER5DISK: [BATHY. EXECJLINF4 
$  GOTO  MENU 
S' 

$0  P4; 

$  RUN  USLR$DISK: (BATHY. EXECJLINF7 
$  GOTO  MENU 
S' 

SOPS  : 

$  RUN  USER$DISK: ( BATHY . EXEC ] TMBATHY 
$  GOTO  MENU 
S' 

$0P6  ; 

S  RUN  USER$DISK: [BATHY. EXEC] SPOTBATHY 
$  GOTO  MENU 

c.  i 

v  ■ 


$0P7 


$  RUN  USER$DISK: [ BATHY . EXEC ] OVLBATHY 
$  GOTO  MENU 
$! 

$ENDIT : 

$  WS  "  THE  END  " 

$  DEASSIGN  SYS$INPUT : 

$  EXIT 


APPENDIX  D:  Seeps  for  Making  Matrix  Camera  Prints 


CAMERA  AND  DEVELOPER  OPERATION: 

(1)  Fix  camera  control  panel  settings:  color  mode  —  CLR  COMP 

operation  —  POS  AUTO 

(2)  Loading  negative  into  film  cassette  and  film  cassette  into  camera: 
Hold  cassette,  blue  buttons  up; 

Pres6  buttons  to  open  cassette; 

Place  negative,  with  white  letters  facing  up,  on  right  side  of 
cassette ; 

Center  negative  between  blue  lines; 

Catch  cassette's  orange  tab  under  the  negative  paper; 

Close  cassette  so  that  it  snaps  shut; 

Pull  white  arrows  to  remove  the  negative  paper  covering; 

Turn  cassette  over  so  that  yellow  arrow  is  facing  up; 

Open  camera  door ; 

Insert  cassette  In  camera  drawer,  yellow  arrow  pointing  toward  the 
user ; 

Remove  negative  protector  (a  blue  slide  under  yellow  arrow  tab); 
Close  camera  door. 


(3)  Fix  camera  settings:  image  position  —  FWD  (Note:  "1"  should  be 

displayed;  if  not,  hit 
RST  FWD) 

exposure  thumb  wheel  —  1200  for  photo  prints  809 

—  2800  for  transparencies 
891 

exposure  *—  EXP  (Camera  will  then  cycle  RBG) 

(4)  Removing  cassette  from  camera: 

Open  camera  door; 

RE- INSERT  FILM  PROTECTOR  (BLUE  SLIDE)  INTO  CASSETTE  UNDER  YELLOW  ARROW 
TAB  (If  this  is  not  done  before  cassette  is  removed,  the  negative  is 
destroyed) ; 

Lift  cassette  slightly  and  remove  from  camera. 

(5)  Developing  the  film: 

Insert  positive  in  developer  under  silver  tab  (Thumb  symbols  facing 
up) ; 

Insert  film  cassette  (which  contains  the  negative)  on  top  of  silver 
tab  (yellow  arrow  facing  up  and  put  in  first) ; 

Set  timer:  photo  prints  809  *  1.0-1. 5  minutes 
transparencies  891  -  4.5  minutes; 

Press  white  button; 

After  buzzer  sounds,  lift  developer  door  and  remove  the  print; 

Peel  the  negative  from  the  print; 

Clean  developer  rollers  with  premoistened  cleaning  pads. 


APPENDIX  E:  Hints  for  Adjusting  the  Matrix  Camera 


(by  Maura  C.  Lohrenz) 


NOTE:  Computer  prompts  are  indicated  by  and  comments  are  given  in 

parentheses . 

(1)  Display  a  16 -level  gray  scale  on  the  screen: 

$  ELAS  (Enter  ELAS) 


file.CTL  (Use  any  control  file) 

-FILE  MGR? 

DU  "number"  DISP  (Designate  usage  EPA2  as  DISP, 

where  "number"  is  the  control 
file  number  for  EPA2 .  If  EPA2 
is  not  in  the  control  file, 
type  AC  EPA2  DISP  and 
proceed, ) 


-FILE  MGR? 

COMD  (Rur.  the  display  module) 

-DISPLAY? 

BW  IF  LF  (Initialize  to  linear  function) 


DISPLAY? 

BT 


(Build  color  table 


-MANUAL  (M).  AUTO  (A).  LIPS  TABLE  <L) .  HUES  (H)  ? 


M 

-START, STOP, B.R.G 


0, 

15, 

0, 

0, 

0 

16, 

31. 

15, 

r 

15 

32, 

47, 

31, 

3. 

31 

48 , 

63, 

47. 

47  , 

47 

64, 

79, 

63, 

63, 

63 

80, 

95, 

79, 

79, 

79 

96  , 

111, 

95, 

95, 

95 

112  . 

127, 

111, 

111, 

111 

128, 

143, 

127, 

127, 

127 

144, 

159, 

143, 

143, 

143 

160, 

175, 

159, 

159, 

159 

176, 

191, 

175, 

175, 

175 

192  , 

207, 

191, 

191, 

191 

208, 

223, 

207, 

207, 

207 

224, 

239, 

223, 

223, 

223 

240, 

255, 

239, 

239, 

239 

DP 

-DISPLAY? 

DT 

-DISPLAY? 

END 


(Enter  values  manually) 


(Done  entering  color  values) 


(Display  color  table) 


(Exit  ELAS) 


(2)  Open  door  to  camera  controls  (pull  handle  under  main  con: : r . 
Write  down  the  current  settings  for  P.GB  Exposure,  Contrast  anc 
Brightness.  For  example, 


:  ane 1 )  . 


R 

C 

B 

3.18 

2  .  50 

5.01 

Exposure 

o 

o 

vO 

5.80 

6.00 

Contrast 

2.30 

3.00 

2.70 

Brightness 

Write  down  current  exposure  time  on  main  control  panel;  for  example,  1100. 

(3)  Take  a  picture.  Write  current  settings  on  back  of  developed  print. 

(4)  If  image  is  not  as  desired,  remove  bellows  from  lens  plate  to  view  image 
on  lens.  Adjust  above  settings  to  correct  image  as  you  watch.  The 
following  correlations  hold: 

White  area  is  affected  most  by  contrast  settings 
Black  area  is  affected  most  by  brightness  settings 
Gray/overall  area  is  affected  most  by  exposure  settings 

For  example : 

If  white  area  looks  pink,  reduce  red  contrast  setting; 

If  black  area  looks  too  blue,  reduce  blue  brightness; 

If  whole  picture  (gray  area  included)  looks  too  red,  reduce  red 
exposure . 

Change  settings  carefully.  Don't  over-compensate ! 

(5)  To  maximize  use  of  film,  change  number  of  images  per  print  to  U  (bottom 
left  of  control  panel,  in  FORMAT^  section).  This  will  allow  U  images  per 
picture .  Try  adj  u:»  luieni-s  and  write  down  adjustments  made  for  each  image. 
Develop  picture  and  adjust  more,  if  needed,  following  the  above  rules. 
When  finished,  reset  number  of  images  per  print  to  1. 


APPENDIX  F:  NOS  Format  and  Available  Tapes 


Each  file,  on  an  NOS  tape  has  a  logical  record  length  of  40  bytes.  The 
following  data  format  describes  each  record,  where  fields  may  contain  either 
leading  blanks  or  leading  zeros  (FORTRAN  format  notation  is  used) . 


olumns 

Eormat 

Description 

1-5 

15 

Survey  registry  number 

6-8 

13 

Julian  day  of  data  collection 

9-11 

13 

Calendar  year  of  survey  completion  (last  3  digits) 

12-13 

12 

Degrees  of  latitude  of  data  point  (north  only) 

14-15 

12 

Minutes  of  latitude  of  data  point 

16-19 

F4.2 

Seconds  of  latitude  of  data  point  (to  hundredths) 

20-22 

13 

Degrees  of  longitude  of  data  point  (west  only) 

23-24 

12 

Minutes  of  longitude  of  data  point 

25-28 

F4.2 

Seconds  of  longitude  of  data  point  (to  hundredths) 

29-33 

Depth  (format  dependent  on  cartographic  code) 

34-36 

13 

Cartographic  code 

37-40 

A4 

Blank 

The  user  can  obtain  a  list  of  the  possible  cartographic  codes  from  any  o 
the  available  documentation  relating  to  the  NOS  tapes.  For  further 
information  on  NOS  data,  contact 

Lt.  Bruce  F.  Hillard 

NOAA/NCDC  E/GC3 
325  Broadway 
Boulder.  CO  80303 


Phone:  303  497-6376 


FTS  320-6376 


Listed  below  are  the  NOS  tapes  available  in  the  Pattern  Analysis  Laboratory 
cape  library,  along  with  the  current  library  position  and  comments . 
Documentation  describing  the  specific  areas  available  on  these  tapes  is 
located  in  the  Pattern  Analysis  Laboratory. 


Taoe  ID 

Rack  No. 

Comments 

PA979 

RB216 

NOS 

data, 

Gulf  of  Mexico,  tape  1/2 

PA980 

RB217 

NOS 

data, 

Gulf  of  Mexico,  tape  2/2 

PA981 

RB218 

NOS 

data, 

Caribbean,  tape  1/1 

PA982 

RB219 

NOS 

data, 

Atlantic,  tape  1/5 

PA983 

RB220 

NOS 

data , 

Atlantic,  tape  2/5 

Pa984 

RB221 

NOS 

data , 

Atlantic,  tape  3/5 

PA985 

RB222 

NOS 

data, 

Atlantic,  tape  4/5 

FA986 

RB223 

NOS 

data , 

Atlantic,  tape  5/5 

PA987 

RB224 

NOS 

data, 

Pacific,  tape  1/2 

PA988 

RB225 

NOS 

data, 

Pacific,  tape  2/2 

PA989 

RB226 

NOS 

data , 

Alaska,  tape  1/4 

PA990 

RB227 

NOS 

data , 

Alaska,  tape  2/4 

PA991 

RB228 

NOS 

data , 

Alaska,  tape  3/4 

PA992 

RB229 

NOS 

data, 

Alaska,  tape  4/4 

PA993 

RB230 

NOS 

data , 

Hawaii,  tape  1/1 

PA994 

RB231 

NOS 

data , 

Great  Lakes,  tape  1/1 

NOTE :  Most  NOS  calibration  points  have  latitude/longitude  coordinates 
relative  to  NORTH  AMERICAN  DATUM  1927. 


APPENDIX  G:  Datum  Transformations 

Two  programs,  STANDARD  and  ABRIDGED,  may  be  used  to  calculate  the  adjustments 
to  correct  from  a  local  geodetic  system  to  World  Geodetic  System  (WGS)  1984, 
the  datum  most  commonly  associated  with  the  NOAA  charts  mentioned  in  this 
guide.  These  programs  implement  the  standard  and  abridged  Molodensky  formulas 
which  calculate  the  latitude/longitude  corrections  in  seconds.  Although  the 
abridged  formulas  do  not  depend  on  geodetic  height,  both  programs  run 
essentially  in  the  same  manner:  the  user  is  prompted  for  a  sample  point  in 
the  local  geodetic  system  coordinates  (degrees,  minutes,  seconds),  and  the 
adjustments  are  printed  to  the  screen. 

Subroutine  L0CAL_WGS84  must  be  adapted  to  the  particular  local  geodetic  system 
under  consideration  (for  the  most  part,  this  will  be  the  most  common  datum 
related  to  the  NOS  data;  i.e.,  North  American  Datum,  1927).  In  this 
subroutine,  the  parameters  (used  in  the  correction  formulae)  relating  to  the 
specific  local  geodetic  system  are  defined,  and  may  be  found  in  the  DMA 
Technical  Report  8350.2,  30  Sept.  87,  DoD  World  Geodetic  System  1984.  The 
adjustments  are  given  in  seconds  and  are  applied  as  follows  in  the  program 
C0RLL2LE : 

WGS  latitude  -  Local  latitude  +  (latitude  correctlon/3600) 

WGS  longitude  -  Local  longitude  +  (longitude  correction/3600) 

For  a  more  in-depth  discussion  on  datum  transformations,  see  the  technical 
report  mentioned  above. 


APPENDIX  H:  Source  Code  (FORTRAN) 


PROGRAMS 
ABRIDGED. FOR 

BaTH. INCLUDE  (code  included  in  other  programs) 

C0RLL2LE . FOR 

DEPTHS  I EVE. FOR 

DSTLL2LE . FOR 

DSTMAKER.FOR 

EDGE. FOR 

EDGEMULTI . FOR 

EOF. FOR 

ERROR . FOR 

FINDLL. FOR 

FINDLLI .FOR 

LaNDU’ATER  .  FOR 

LESIEVE.FOR 

LIN FA. FOR 

LINF7 . FOR 

MINMAXA. FOR 

M INMAX 7. FOR 

MODS  I EVE. FOR 

OVLBATHY . FOR 

SPOTBATHY. FOR 

STANDARD. FOR 

TMBATHY . FOR 


UTM2ST. FOR 


no  non 


PROGRAM  ABRIDGED 

.This  program  calculates  the  corrections  needed  to  convert  from 
.local  geodetic  system  lat/lon's  to  World  Geodetic  System  1984  (VGS84) 
•lat/lon's.  The  abridged  Molodensky  formulas  are  used. 

.Formulae  and  data  are  from  DMA  Techical  Report  8350.2,  30  Sept  87 
.DoD  World  Geodetic  System  1984  (WGS84) . 

INTEGER  LATD , LATH , LOND , LONM 

REAL  RLATS,RL0NS  IFractional  seconds 

REAL  DELLAT , DELLON  !Lat/lon  corrections,  in  seconds 

REAL  DLAT.DLON  !lat/lon  to  be  corrected 

REAL  DELH  '.Geodetic  height  correction 

REAL  WGSLAT, WGSLON  'Corrected  lat/lon 

WRITE(6,*)  '"Local  GS"  to  WGS  1984  conversion 
WRITE(6,*)  'ABRIDGED  MOLODENSKY  FORMULAS' 

WRITE(6 , *) 

WRITE(6,*)  'ENTER  A  SAMPLE  POINT  (IN  "LOCAL  GS")' 

WRITE(6,*)  'Enter  lat.  degree  (N+/S-),  minutes,  REAL  seconds:' 
READ(5,*)  LATD,  LATH,  RUTS 

WRITE(6,*)  'Enter  Ion.  degree  (E+/W-),  minutes,  REAL  seconds:' 

READ (5,*)  LOND, LONM, RLONS 


C . Convert  to  degrees  in  decimal: 

DLAT  .  DECDEG(UTD,UTM,RUTS) 

DLON  »  DECDEGC LOND, LONM, RLONS) 

C . Echo  print: 

WRITE(6 , *) 

WRITE(6 , *)  'Lat  (deg, min, sec) :  '  ,UTD,UTM,RUTS 
WRITE(6 , *)  'Lon  (deg, min, sec) :  ', LOND, LONM, RLONS 
WRITE(6 , *) 

WRITE(6 , *)  'Lat  (dec.  degree):  '  ,DUT 
VRITE(6,*)  'Lon  (dec.  degree):  ',DLON 
WRITE(6 , *) 

C . Calculate  the  corrections: 

CALL  L0CAL_WGS84  (  DUT ,  DLON ,  DELUT ,  DELLON ,  DELB ) 

C . Write  me  corrections. 

WRITE(6,*)  'Lat/lon  corrections,  in  seconds:  ', DELUT , DELLON 

WGSUT  -  DUT  +  (DELUT/3600,0) 

WGSLON  -  DLON  ♦  (DELLON/ 3600.0) 

C . Convert  decimal  degrees  to  degrees,  minutes,  REAL  seconds: 

CALL  DMS ( WGSUT,  UTD.UTM, RUTS) 

CALL  DMS( WGSLON, LOND, LONM, RLONS) 

C . Echo  print: 

WRITE(6,*) 

WRITE(6 , * )  'WGS  lat  (degree):  '.WGSUT 
WRITE(6 , *)  'WGS  Ion  (degree):  '.WGSLON 
WRITE( 6 , * ) 

VRITE(6 , *)  'WGS  lat  (deg, min, sec) :  '  ,  UTD,  UTM.RUTS 
VRITE(6 , *)  'WGS  Ion  (deg, min, sec) :  ', LOND, LONM, RLONS 
VRITE(6 , * ) 


END 


SUBROUTINE  DMS(L,D,M,S) 

C . Subroutine  DMS  converts  from  decimal  lat/lon  L  to  degree  D, 

C . minute  M,  REAL  seconds  S. 

INTEGER  D,M 
REAL  L,S 

D  -  INT(L) 

DIFF  x  ABS(L  -  FLOAT(D) ) 

REALMINUTES  .  DIFF  *  60.0 
M  *  INT( REALMINUTES) 

DIFF  -  REALMINUTES  -  FLOAT(M) 

S  *  DIFF  *  60.0 

RETURN 

END 


REAL  FUNCTION  DECDEG(D,M,S) 

C . Convert  latitude/longitude  D,M,S  (in  deg, min, sec)  to  REAL  decimal  degrees. 

C . Only  D  should  carry  the  sign. 

REAL  S,RD 
INTEGER  D.M 

RD  =»  FLOAT(D) 

IF  (RD  .LT.  0.)  THEN 

DECDEG  -  -1.0  *  (ABS(RD)  +  FL0AT(M)/60.0  ♦  S/3600.0) 

ELSE 

DECDEG  -  RD  ♦  FLOAT(M)/60.0  +  S/3600.0 
ENDIF 

RETURN 

END 


O************************************************************ 

SUBROUTINE  L0CAL_VGS84 ( DLAT , DLON , DELLAT , DELLON , DELS ) 

REAL  DLAT, DLON, DELLAT, DELLON, DELH 


C . Subroutine  to  calculate  corrections  used  to  convert  from  LOCAL  GS  to 

C . VGS  1984.  THE  ABRIDGED  MOLODENSKY  FORMULAS  ARE  USED. 

C . NOTE:  this  has  not  been  checked  for  elevation  corrections. 

C 

C . Formulae  and  data  from  DMA  Techical  Report  8350.2,  30  Sepi  8' 

C . DoD  Uorld  Geodetic  System  1984  (VGS84) 

C 

C . To  use  correction  factors  DEL*  (in  seconds),  etc.,  use  the^e  formulae 

C . where  DLAT,  etc.,  are  in  LOCAL  and  VGSLAT,  etc.,  is  ir  VGS84 : 

C 

C  VGSLAT  *  DLAT  ♦  (DELPHI/ 3600.0) 


Cl  o  o  o  o 


c 


VGSLON  -  DLON  ♦  (DELLAMBDA/3600 .0) 


REAL  DELX , DELY ,  DELZ , DELA , DELF , RN , RM , E2 , A , B , H , E , F 
REAL  DELPHI ,DELLAMBDA  ICorrections,  in  seconds. 

REAL  DELHEIGHT 

DATA  H  /  0.0  /  JIgnore  geodetic  height. 

The  following  is  for  NAD27  Bahamas  (should  be  good  for  Puerto  Rico): 

DATA  DELX, DELY, DELZ  /  -4.0,154.0,178.0  /  !p.  7-22. 

The  following  is  Clark  1866  spheroid: 

DATA  DELA, DELF  /  -69. 4 , -.000037264639  /  !p.  7-22. 

DATA  A,F  INVERSE  /  6378206.4,294.9786982  /  !p.  7-12. 


C . The  following  data  is  for  Puerto  Rico  datum  (p.  7-26)  for  check: 

DATA  DELX, DELY, DELZ  /II . ,72 . ,-101. / 

DATA  DELA, DELF  /-69.4,  -0. 37264639E-4/ 

DATA  ‘A,F_INVERSE  /  6378206.4,294.9786982  /  !p.  7-12. 

F  -  1./F_INVERSE 

SI  «  SIND( 1.0/ 3600.0) 

B  -  A*( 1-F) 

E2  -  F*( 2-F) 

DENOM  -  SQRT(1-E2*(SIND(DLAT)**2) ) 

RN  .  A  !  DENOM 

RM  -  A*(l-E2)  /  (DEN0M**3) 

DELPHI  «  (  -DELX*SIND(DLAT)*COSD(DLON)  - 
DELY* S1ND(DLAT)*SIND( DLON)  ♦ 

DELZ*COSD<DLAT)  ♦ 

(A*DELF  ♦  F*DELA)*SIND(2*DLAT)  )/ 

(RM*S1 ) 

DELLAMBDA  -  ( -DELX*SIND( DLON )  +  DELY*C0SD(DL0N) )  / 
(RN*C0SD(DLAT)*S1) 

DELHEIGHT  -  DELX*COSD(DUT)*COSD(DLON)  ♦ 

DELY*C0SD ( DLAT ) * S IND( DLON )  ♦  DELZ*SIND(DLAT)  ♦ 
(A*DELF  +  F*DELA)*(SIND(DLAT)**2)  -  DEU 

DELUT  -  DELPHI 
DELLON  -  DELLAMBDA 
DELH  -  DELHEIGHT 

RETURN 

END 


BATH. INCLUDE 


COMMON  //  B( 30000) 

COMMON  /DATASET/  XT< 4000 , 7) , IMAGE(4000, 13) 

COMMON  /MISC/  DMIN , DMAX , NTERMS , LINF ( 7 ) , IBAND( 7 ) , INFO , IMAGEFILE1 
f  SHIP'S ’  IMAGETYPE .  CALTYPB ,  IMAGETYPeI ,  IMAGETYPE2  , 
TrCr  t VT,’  SPC  ’ SDT  *  SIGC ( 3  ) ,  SIGT  ( 3  )  ,  NTM ,  NSPOT ,  IKTYPE , 

l  ITlZlb  '  ’ IET ' LfT ’ ILT ' LLT» IES » LES • ILS . LLS , ICHAN , 

CHARACTER*130  info 

CHARACTER*40  IMAGEFILE1,  IKAGEFILE2 

CHARACTER*4  IMAGETYPE, CaLTYPE, IHAGETYPE1 ,IMAGETYPE2  CALTYPE? 

CHARACTER*!  IMTYPE 

INTEGER  IE , LE , IL , LL, IET , LET , ILT , LLT , IES , LES , ILS , LLS , ICHAN 


DATA  IMAGETYPE1/ '  TM'/ 
DATA  IMAGETYPE2/'SP0T'/ 


nonooonnnoooooono 


PROGRAM  C0RI.L2LE 

.This  program  reads  an  original  NOS  file  and  COEFUT.LEL  files 
.to  convert  lat/lon's  to  line/elements.  If  corrections  are  to  he 
•used,  these  may  be  entered  interactively.  The  depth  from  the  NOS  file 
.is  also  converted  to  meters. 

.The  input  file  has  the  following  format: 

15  SURVEY  REGISTRY  NUMBER 

13  JULIAN  DAY 

13  CALENDAR  YEAR 

12  LATITUDE  DEGREE 

12  LATITUDE  MINUTE 

F4.2  LATITUDE  SECOND 

13  LONGITUDE  DEGREE 

12  LONGITUDE  MINUTE 

F4.2  LONGITUDE  SECOND 

15  DEPTH 

13  CARTOGRAPHIC  CODE 

A4  BLANK 


+ 


INTEGERS 
DOUBLE  PRECISION 

INTEGER 

REAL 

REAL 

CHARACTER*40 


TMSCAN , TMELEM , SPOTSCAN , SPOTELEM 

SLTM ( 3 ) , ELTM( 3 ) , SLSP0T( 3 ) , ELSPOT( 3 ) , 

E  AS , NOR , XLAT , XLON 

LATD , LATM , LGD , LGM , I CODE 

DEPTH , RLATS , RLGS , DSIGN 

DELLAT , DELLON 

INFILE, OUTFILE»TCOEFUT, SCOEFUT 


DATA  LUC0EF1/24/ , LUCOEFF2/25/ , LUOUT/26/ , LUSURV/11/ 

VRITE(6 , * )  'Enter  the  original  NOS  file:' 

ACCEPT  200,  INFILE 

OPEN ( LUSURV , FI LE-INFI LE , STATUS. ' OLD ' , READONLY ) 


VRITE(6 , * )  'Enter  +1  oi:  -1  as  follows:' 
WRITE(6, *)  'Latitude  (N  +1,  S  -1)' 
ACCEPT  * ,  LATSIGN 

VRITE(6, *)  'Enter  +1  or  -1  as  follows:' 
VRITE(6 , * )  'Longitude  (E  +1,  V  -1)' 
ACCEPT  *,  LONSIGN 


VRITE(6,*)  'The  correction  formulas  are  as  follows:' 
VRITE(6,*)  '"NEW  LAT"  -  "OLD  LAT"  ♦  "CORRECTION"' 
VRITE(6,*)  '"NEW  LON"  .  "OLD  LON"  +  "CORRECTION"' 
VRITE(6,*) 

VRITE(6,*)  'Enter  lat  correction  (in  seconds):' 
ACCEPT  *,  DELLAT 

VRITE( 6 , * )  'Enter  Ion  correction  (in  seconds):' 

ACCEPT  *,  DELLON 

VRITE(6,*) 

VRITE(6,*)  'Enter  the  output  file  name:' 

ACCEPT  200,  OUTFILE 

0PEN( LUOUT , FILE-OUTFILE , STATUS® ' NEW' ) 

VRITE(6 ,  *)  'Enter  the  TM  COEFUT.LEL  file:' 

VRITE(6,*)  '(Ee  certain  to  give  full  path  name)' 
ACCEPT  200,  TCOEFUT 

0PEN(LUC0EF1 , FI LE-TCOEFUT, STATUS- ' OLD' .READONLY) 


* 


on  non  no  n  n  o  nnnn 


READ(LUC0EF1,'(1X,D60.40)')  (SLTM(I) , 1*1 , 3) , (ELTM(I) ,1*1,3) 

VRITE(6 , *)  'Enter  the  SPOT  COEFUT.LEL  file:' 

VRITE(6,*)  '(Be  certain  to  give  full  path  name)' 

ACCEPT  200,  SCOEFUT 

OPEN ( LUC0EF2 , FILE-SCOEFUT , STATUS* ' OLD' , READONLY) 

READ( LUC0EF2 , ' ( IX , D60 . 40 ) ' )  ( SLSPOT (I ) ,1-1,3) , < ELSP01 ( I ) , I * 1 , 3 ) 

200  FORMAT(A) 

VRITE(LU0UT, 10C1)  IVrites  heading  line  to  output. 

DO  I  =  1,1000000  IThere  are  at  most  1,000,000  lines  in  input  file. 

READ  ( LUSURV ,  500 ,  END*  100 )  LATD ,  LATH ,  RUTS ,  LGD ,  LGM , 

♦  RLGS, DEPTH, ICODE 

. Each  point  in  the  input  file  has  a  depth  code  format  label. 

. Only  check  those  points  with  codes  indicating  depths  in  fathoms, 

. feet,  fathoms  and  tenths,  feet  and  tenths,  meters,  or  meters  and  tenths. 

. These  depth  codes  are  furnished  with  the  original  NOS  data  tape. 

IF  ( (ICODE. EQ. 126). OR. < ICODE. EQ. 127). OR. 

*  ( ICODE . EQ . 1 29 ) . OR . ( ICODE . EQ . 1 30 ) . OR . 

*  (ICODE. EQ. 710). OR. (ICODE. EQ. 711))  THEN 

. Convert  degree  signs  appropriately  and  convert  to  decimal: 

XUT  *  UTSIGN*DECDEG(  UTD,  UTM,  RUTS) 

XLON  -  LONSIGN*DECDEG(LGD, LGM, RLGS) 

. Correct  according  to  DELUT  and  DELLON: 

XUT  -  XUT  ♦  (DELUT/ 3600.0)  ! DELUT  in  seconds. 

XLON  -  XLON  ♦  (DELLON/ 3600.0)  ! DELLON  in  seconds. 

. Convert  both  degree  signs  back  to  positive: 

XUT  -  UTSIGN*XUT 
XLON  -  L0NSIGN*XL0N 

. Call  to  an  EUS  subroutine  to  convert  decimal  lat/lon  to  UTM. 

.....The  flag  "1"  signifies  decimal  degree  input. 

CALL  LLUTM(  UTD ,  UTM ,  UTS ,  LGD ,  LGM ,  LGS ,  IZONE ,  NOR ,  EAS , 

♦  XUT,  XLON,  1) 

. The  georeferencing  coefficients  are  nov  used  to  generate  scan  lines 

. and  elements  (relative  to  the  corrected  data)  for  points  in  the  input 

. file.  Depth  is  converted  to  meters  by  subroutine  CODES. 

TMSCAN  -  SLTM(l)  +  SLTM(2)*EAS  +  SLTM(3)*N0R  +.5 
TMELEM  *  ELTM(l)  +  ELTM(2 )*EAS  ♦  ELTM( 3)*N0R  +.5 
SPOTSCAN  *  SLSPOT(l)  -  SLSP0T( 2 )*EAS  ♦  SLSP0T( 3 )*N0R  +.5 
SPOTELEM  n  ELSPOT(l)  ♦  ELSP0T( 2 )*EAS  +  ELSP0T(3)*N0R  +.5 
CALL  C0DES( DEPTH, ICODE) 

. Finally,  convert  decimal  degrees  back  to  degrees  ,  minutes  .  ft-conds 

. for  output  file. 

CALL  DMS(XUT,  UTD,  UTM, RUTS) 

CALL  DMS( XLON, LGD, LGM, RLGS) 

C . All  information  vritt>  .  out  is  relative  to  corrected  data. 

VRITE(  LUOUT ,  1000 )  UTD ,  UTM ,  RUTS ,  LGD ,  LGM ,  RLGS ,  EAS , 

+  NOR, DEPTH, TMELEM, TMSCAN, 


onooonoo 


SPOTELEH , SPOTSCAN 


+ 

ENDIF 
ENDDO 

100  CONTINUE 

500  FORMAT (11X,I2,I2,F4.2,I3,I2,F4.2,F5.0,I3) 

1000  FORMAT ( IX, 12 , I2,F5.2,1X,I3,I2,F5.2, 2X, F10.0, 2X, F10. 0, 2X, 

♦  F7.1,2X,I6,2X,I6,2X,I6,2X,I6) 

1001  FORMAT( IX, 'LAT, LON, EAS, NOR, METERS, TMELEM,TMSCAN,SPELEM,SPSCAN: ' ) 


END 


C****************************************************************** 

SUBROUTINE  CODES(DEPTH, ICODE) 

REAL  DEPTH 
INTEGER  ICODE 


This  subroutine  converts  units  to  meters  accordingly: 

CODE  126  represents  whole  feet; 

CODE  127  represents  feet  and  tenths; 

CODE  129  represents  whole  fathoms; 

CODE  130  represents  fathom.1;  and  tenths; 

CODE  710  represents  whole  meters;  (no  conversion  necessary) 

CODE  711  represents  meters  and  tenths; 

For  example,  a  depth  of  234  with  code  127  would  represent  23.4  feet. 

IF  (ICODE. EQ. 126)  TEEN 
DEPTH  ,  DEPTH*( . 3048) 

ELSE  IF  ( ICODE. EQ. 127)  THEN 

DEPTH  -  (DEPTH/10. )*(. 3048) 

ELSE  IF  (ICODE. EQ. 129)  THEN 
DEPTH  -  DEPTH*6 . *( . 3048 ) 

ELSE  IF  ( ICODE. EQ. 130)  THEN 

DEPTH  -  (DEPTH/10. )*6.*( . 3048) 

ELSE  IF  (ICODE. EQ. 711)  THEN 
DEPTH  *  (DEPTH/ 10.) 

ENDIF 

RETURN 

END 


C************************************************************* 
SUBROUTINE  DHS(L,D,M,S) 

C . Subroutine  DMS  converts  from  decimal  lat/lon  L  to  degree  D, 

C . minute  M,  REAL  seconds  S. 

INTEGER  D, M 
REAL  L,S 

D  -  INT(L) 

DIFF  -  ABS(L  -  FLOAT(D) ) 

REALMINUTES  «  DIFF  *  60.0 
M  »  INT( REALMINUTES) 

DIFF  *  REALMINUTES  -  FLOAT(M) 

S  *  DIFF  *  60.0 


RETURN 

END 


REAL  FUNCTION  DECDEG(D,M,  S) 

C . Convert  latitude/longitude  degree, minute, second  to  REAL  decimal 

C . degrees.  NO  SIGNS  ARE  NEEDED  ON  DEGREE. 

INTEGER  D,M 
REAL  S 

DECDEG  -  FLOAT(D)  ♦  (FLOAT(M)/60.0)  ♦  (S/3600.0) 

RETURN 

END 


PROGRAM  DEPTHSIEVE 

C . This  program  performs  a  depth  cut  on  an  NOS  data  file. 

INTEGER  UTD,  UTM,  LGD,  LGM 

INTEGER*4  TMSCAN , TMELEM , SPOTSCAN , SPOTELEM 

DOUBLE  PRECISION  EAS, NOR 

REAL  DEPTH,  RUTS,  RLGS,  MAXD 

CHARACTER* 132  HEADING 

CHARACTER*40  INFILE, OUTFILE 


20 


VRITE(6,*) 

VRITE(6,*) 

VRITE(6,*) 

URITE(6,*) 

VRITE(6,*) 

VRITE(6,*) 

VRITE(6,*) 

VRITE(6,*) 

ACCEPT  20, 

VRITE(6,*) 

ACCEPT  20, 

FORMAT (A) 

WRITE(6,*) 

READ(5,*) 


9 * 

'This  program  performs  a  depth  sieve  ' 
'on  an  NOS  data  file.  ' 

'**★***★*★***★★★*★***★★★★★★★★★★★★★*★★*' 

'Enter  NOS  input  file  name:' 

INFILE 

'Enter  output  file  name:' 

OUTFILE 

'Enter  maximum  depth  (in  meters):' 

MAXD 


0PEN( 11 .FILE-INFILE, STATUS-' OLD' .READONLY) 

OPEN( 12 , FILE-OUTFILE , STATUS- ' NEW' ) 

READ(1 1,500)  HEADING 
VRITE(12,500)  HEADING 

DO  1*1,1000000 

READ(  11,1000,  END- 100 )  UTD ,  UTM , RUTS ,  LGD ,  LGM ,  RLGS , 

♦  EAS, NOR, DEPTH, TMELEM, TMSCAN, 

♦  SPOTELEM, SPOTSCAN 

IF  (DEPTH  .LE.  MAXD)  THEN 

WRITE(  1 2 , 1000 )  UTD ,  UTM ,  RUTS ,  LGD ,  LGM , RLGS , 

+  EAS, NOR, DEPTH, TMELEM, TMSCAN, 

+  SPOTELEM, SPOTSCAN 

END  IF 

END  DO 

100  CONTINUE 
500  FORMAT(A132) 

1000  FORMAT ( IX, 12 ,I2,F5.2,1X,I3,I2,F5.2,2X,F10.0,2X,F10.0,2X, 
F7.1,2X,I6,2X,I6,2X,I6J2X,I6) 


END 


oooooooooooooooo 


PROGRAM  DSTLL2LE 

This  program  reads  an  original  NOS  file  and  COEFUT.LEL  files 
to  convert  lat/lon's  to  line/element's.  The  depth  from  the 
NOS  file  is  also  converted  to  meters. 

The  input  file  has  the  following  format: 

15  SURVEY  REGISTRY  NUMBER 

13  JULIAN  DAY 

13  CALENDAR  YEAR 

12  LATITUDE  DEGREE 

12  LATITUDE  MINUTE 

F4.2  LATITUDE  SECOND 

13  LONGITUDE  DEGREE 

12  LONGITUDE  MINUTE 

F4.2  LONGITUDE  SECOND 

15  DEPTH 

13  CARTOGRAPHIC  CODE 

A4  BLANK 


INTEGER*4  TMSCAN.TMELEM , SPOTSCAN, SPOTELEM 

DOUBLE  PRECISION  SLTM(3) ,ELTM(3) , SLSPOT(3) ,ELSPOT(3) , 

♦  EAS , NOR , XLAT , XLON 

INTEGER  LATD, LATH , LGD, LGM, ICODE 

REAL  DEPTH,  RUTS,  RLGS 

CHARACTER*40  INFILE , OUTFILE .TCOEFUT , SCOEFUT 

DATA  LUC0EF1/24/ , LUCOEFF2/25/ , LUOUT/26/ , LUSURV/11/ 

VRITE(6,*)  'Enter  the  original  NOS  file:' 

ACCEPT  200,  INFILE 

OPEN( LUSURV , FILE-INFILE , STATUS- ' OLD' , READONLY) 

VRITE(6,*)  'Enter  the  output  file  name:' 

ACCEPT  200,  OUTFILE 

OPEN(LUOUT, FILE-OUTFILE, STATUS- 'NEV' ) 

VRITE(6,*)  'Enter  the  TM  COEFUT.LEL  file:' 

VRITE(6,*)  '(Be  certain  to  give  full  path  name)' 

ACCEPT  200,  TCOEFUT 

OPEN ( LUC0EF1 , FILE-TCOEFUT , STATUS- ' OLD ' , READONLY ) 

READ( LUC0EF1 , ' (1X,D60.40)' )  (SLTM(I ) , 1-1 , 3) , (ELTM(I ) , 1-1 , 3) 

VRITE(6,*)  'Enter  the  SPOT  COEFUT.LEL  file:' 

VRITE(6,*)  '(Be  certain  to  give  full  path  name)' 

ACCEPT  200,  SCOEPUT 

OPEN( LUC0EF2 , FILE-SCOEFUT , STATUS- ' OLD' , READONLY) 

READ(LUC0EF2, ' (1X,D60.40)' )  (SLSPOT(I),I  l , 3) , (ELSPOT(I) ,1-1 , 3) 

200  FORMAT(A) 

WRITE (LUOUT, 1001 )  !Urites  heading  line  to  output. 

DO  I  -  1,1000000  IThere  are  at  most  1,000,000  lines  in  input  file. 

READ(  LUSURV ,  500 ,  END- 100 )  LATD ,  LATM ,  RUTS ,  LGD ,  LGM , 

♦  RLGS, DEPTH, ICODE 


C 

C 


Each  point  in  the  input  file  has  a  depth  code  format  label. 

Only  check  those  points  with  codes  indicating  depths  in  fathoms, 


C . feet,  fathoms  and  tenths,  feet  and  tenths,  meters,  or  meters  and  tenths. 

C . These  depth  codes  are  furnished  vith  the  original  NOS  data  tape. 


IF  ( (ICODE. EQ. 126) .OR. (ICODE.EQ. 127) .OR. 
(ICODE. EQ. 129) .OR. (ICODE.EQ. 130) .OR. 

( ICODE . EQ . 7 10 ) . OR . ( ICODE . EQ . 7 1 1 ) )  THEN 


C . Convert  to  decimal  degrees  and  call  ELAS  subroutine  to  convert 

C . lat/lon  to  UTM.  The  flag  "1"  signifies  decimal  degree  input. 

XLAT  .  D£CDEG(LATD, UTM, RUTS) 

XLON  .  DECDEG  ( LGD ,  LGM ,  RLC-S ) 

CALL  LLUTH(LATD ,  LATH ,  UTS ,  LGD ,  LGM ,  LGS ,  IZONE ,  NOR ,  EAS , 

♦  XUT ,  XLON ,  1 ) 


C . The  georeferencing  coefficients  are  nov  used  to  generate  scan  lines 

C . and  elements  for  points  of  the  input  file. 


TMSCAN  -  SLTM(l)  ♦  SLTM(2)*EAS  <•  SLTM(3)*N0R  +.5 
TMELEM  -  ELTM(l)  ♦  ELTM(2)*EAS  ♦  ELTM(3)*N0R  +.5 
SPOTSCAN  -  SLSPOT(l)  +  SLSP0T(2 )*EAS  ♦  SLSP0T( 3)*N0R  +.5 
•  SPOTELEM  -  ELSPOT(l)  ♦  ELSP0T(2)*EAS  ♦  ELSP0T(3)*N0R  +.5 
CALL  C0DES(DEPTH, ICODE) 

URIT£( LUOUT ,  1000 )  UTD ,  UTM ,  RUTS ,  LGD ,  LGM ,  RLGS ,  EAS , 

♦  NOR, DEPTH, TMELEM, TMSCAN, 

♦  SPOTELEM, SPOTSCAN 
ENDIF 

ENDDO 

100  CONTINUE 

500  F0RMAT( 11X, 12 , I2,F4.2,I3,I2,F4.2,P5.0,I3) 

1000  F0RHAT(1X, 12, 12 ,F5. 2, IX, 13, 12, P5. 2, 2X, F10.0,2X, F10.0, 2X, 

♦  F7 . 1 , 2X, 16 , 2X, 16, 2X,I6, 2X, 16) 

100 1  FORMAT ( IX , ' UT , LON , EAS , NOR , METERS , TMELEM , TMSCAN , SPELEM , SPSCAN  s ' ) 

END 

eft******************************************************************* 

SUBROUTINE  C0DEc( DEPTH, ICODE) 

REAL  DEPTH 
INTEGER  ICODE 


C . This  subroutine  converts  units  to  meters  accordingly: 

C  CODE  126  represents  whole  feet; 

C  CODE  127  represents  feet  and  tenths; 

C  CODE  129  represents  whole  fathoms; 

C  CODE  130  represents  fathoms  and  tenths; 

C  CODE  710  represents  whole  meters;  (no  conversion  necessary) 

C  CODE  711  represents  meters  and  tenths; 

C  For  example,  a  depth  of  234  with  code  127  would  represent  23.4  feet. 


IT  (ICODE.EQ. 126)  THEN 
DEPTH  -  DEPTH* ( .3048) 

ELSE  IF  (ICODE.EQ. 127)  THEN 

DEPTH  -  (DDPTH/10. )*( . 3048) 
ELSE  IF  (ICOrE.EQ. 129)  THEN 
DEPTH  =  DEPTH*6.*( .3048) 

ELSE  IF  (ICODE.EQ. 130)  THEN 

DFPIH  -  (DEPTH/10. )*6.*( .3048) 
ELSE  If  (ICODE.EQ. 711)  THEN 


DEPTH  *  (DEPTH/ 10.) 


ENDIF 

RETURN 

END 

C**** ******************************************* ******************** 


REAL  FUNCTION  DECDEG ( D , M , S ) 

C . Convert  latitude/longitude  degree, minute, second  to  REAL  decimal 

C . degrees.  NO  SIGNS  ARE  NEEDED  ON  DEGREE. 

INTEGER  D,M 
REAL  S 

DECDEG  »  FLOAT (D)  +  (FL0AT(H)/60.0)  *  (S/3600.0) 

RETURN 
END  ■ 


PROGRAM  DSTMAKER 

C. . .This  program  finds  gray  levels  for  pixels  in  imagery  corresponding  to 
C  calibration  depths.  A  Data  Summary  File  is  created  containing  the 
C  following  data  in  the  format  as  indicated 
C 


c 

RECORD  ft 

BYTE  ft 

CONTENTS 

c 

1 

1  -  4 

'BOTH' 

c 

c 

5-8 

'  N0Sf  if  calib.  data  from  NOS  tape 
'NOAA'  if  calib.  data  from  NOAA  chart 

c 

9-48 

TM  image  file  name 

c 

49  -  88 

SPOT  image  file  name 

c 

2 

1  -  3 

'  IET' 

c 

4  -  7 

integer*4,  initial  element,  TM 

c 

8-10 

'LET' 

c 

11  -  14 

integer*4,  last  element,  TM 

c 

15  -  17 

'  ILT' 

c 

18  -  21 

integer*4 ,  initial  line,  TM 

c 

22  -  24 

'  LLT' 

c 

‘ 

25  -  28 

integer*4,  last  line,  TM 

c 

29  -  31 

'  IES' 

c 

32  -  35 

integer*4,  initial  element,  SPOT 

c 

36  -  38 

'LES' 

c 

39  -  42 

integer*4,  last  element,  SPOT 

c 

43  -  45 

'ILS' 

c 

46  -  49 

integer*4,  initial  line,  SPOT 

c 

50  -  52 

'  LLS' 

c 

53  -  56 

integer*4,  last  line,  SPOT 

c 

3 

1  -130 

A130,  comments 

c 

4  -  NRECOUT 

1  -  8 

integer*8,  latitude  (HHMMSS) 

c 

9  -  16 

integer*8,  longitude  (HHMMSS) 

c 

17  -  24 

integer*8,  easting 

c 

25  -  32 

integer*8,  northing 

c 

33  -  36 

integer*4,  tm  element  number 

c 

37  -  40 

ir.teger*4,  tm  row  number 

c 

41  -  44 

integer*4,  depth  (meters*10) 

c 

45  -  48 

integer*4,  band  1  intensity 

c 

49  -  52 

integer*4,  band  2  intensity 

c 

53  -  56 

integer*4,  band  3  intensity 

c 

57  -  60 

integer*4,  band  4  intensity 

c 

61  -  64 

integer*4,  band  5  intensity 

c 

65  -  68 

integer*4,  spot  element  number 

c 

69  -  72 

Anteger*4,  spot  row  number 

c 

73  -  76 

integer*4,  spot  band  1  intensity 

c 

77  -  80 

integer*4,  spot  band  2  intensity 

c 

81  -  84 

integer*4,  spot  band  3  intensity 

c 

NRECOUT+1 

1  -  8 

integer*8  ■  0 

c 

9-16 

integer*8  *  0 

c 

17  -  24 

integer*8  =  0  (flag  for  end  of  file) 

c 

25  -  32 

integer*8  =  0 

c 

33  -  36 

integer*4  =  0 

c 

37  -  40 

integer*4  «  0 

c 

41  -  44 

ir.teger*4 ,  no.  of  data  record'  <  NPF.COUT ) 

c 

NRECOUT+2 

1-44 

same  format  as  NRECOUT+1 

C 

C...Good  luck,  and  good  hunting. 

COMMON  //  B(20000) 

CALL  HLIMIT(20000) 


CALL  HB00K1(1, '  Band  1  IntensityS' ,64,0. ,256. ,0) 

CALL  HCOPY( 1 ,  2 , '  Band  2  IntensityS') 

CALL  HC0PY(1,3,'  Band  3  IntensityS') 

CALL  HCOPY (1,4,'  Band  4  IntensityS') 

CALL  HB00K1(5,'  Band  5  IntensityS' ,50,0. ,50. ,0) 

CALL  HB00K1 (6 , '  Calibration  DepthsS' , 100,0. , 100. ,0) 

CALL  HTITLE('  USA,  USM,  NORDA  Remotely  Sensed  Bathymetry,  DST$' ) 
CALL  HBLACK(O) 

CALL  MAIN 

STOP 

END 


SUBROUTINE  MAIN 
COMMON  //  B(20000) 

COMMON  /LETTERS/  IMAGEFILE1 , CALFILE , INFO , IHAGEFILE2 
CHARACTER* 130  INFO 

CHARACTER*40  IMAGEFILE1 , IMAGEFILE2 , CALFILE, DSTNAME , PSFILE 
INTEGER  INTENSET(5) ,INTENSES(3) 

CHARACTER* 1  CHAR,CALT 
CHARACTER*4  CALTYPE 


DATA  REAST , RNORTH , RDEPTH  /3*0./ 

DATA  INTENSET, INTENSES, NEOF,NOUT,NRECIN,NRECOUT  /5*0, 3*0, 4*0/ 
DATA  LUIMAGE1/8/ , LUIMAGE2/10/ 

DATA  LAT.LON  /2*0/ 

C...Get  name  of  calibration  file  and  image  file 
PRINT  300 

300  F0RMAT('  Enter  calibration  file  name:') 

ACCEPT  200,  CALFILE 

305  PRINT  310 

310  F0RMAT(  '  Enter' 'N''  If  calibration  from  NOS  tape',/, 

♦  '  Enter' 'C''  If  calibration  from  NOAA  chart') 

ACCEPT  200,  CALT 

IF  (CALT  .EQ.  'N'  .OR.  CALT  .EQ.  'n')  THEN 
CALTYPE  *  '  NOS' 

ELSE  IF  (CALT  .EQ.  'C'  .OR.  CALT  .EQ.  'c')  THEN 
CALTYPE  -  'NOAA' 

ELSE 

GO  TO  305 
END  IF 

PRINT  400 

400  FORMAT('  Enter  TM  image  file  name:') 

ACCEPT  200,  IMAGEFILE1 

PRINT  420 

420  FORMATS  Enter  SPOT  image  file  name:') 

ACCEPT  200,  IMAGEFILE2 

PRINT  450 

450  FORMAT('  Enter  comments:') 

ACCEPT  200,  INFO 


PRINT  460 

460  FORMAT('  Enter  desired  name  of  dst  file:') 

ACCEPT  200,  DSTNAME 

PRINT  461 

461  FORMAT ( '  Enter  desired  name  of  histogram  file:') 

ACCEPT  200,  PSFILE 

200  FORMAT(A) 

C...0pen  calibration  various  input  and  output  files 

0PEN(UNIT-7 ,FILE-CALFILE, STATUS-' OLD' .READONLY)  Icalib.  file 

0PEN(UNIT-LUIMAGE1 , FILE-IMAGEFILE1 , STATUS-' OLD' , READONLY, FORM* 

♦  'UNFORMATTED' .ACCESS- 'DIRECT ' ,RECL- 128)  Jimagery  file 

OPEN ( UNIT-LUIMAGE2 , FILE-IMAGEFILE2 , STATUS- ' OLD' , READONLY , FORM* 

♦  'UNFORMATTED' .ACCESS-' DIRECT' .RECL-128)  limageryfile 

OPEN(UNIT-9,FILE-DSTNAME, STATUS- 'NEW' )  !DST  file 

OPEN(UNIT-2 , FILE-PSFILE , STATUS- ' new ' ) 

C. . .Get  image  size 

READ( LUIMAGF1 , REC- 1 )  NBIHT, NBPRT ,  I LT ,  LLT.IF.T ,  LET , NCHANNELT 
WRITE ( 6 , 4 1 1 )  I ET , LET , I LT , LLT , NCHANNELT , NBIHT . NBPRT 
READ( LUIMAGE2 , REC-1 )  NBIHS, NBPRS , ILS , LLS , IES , LES , NCHANNELS 
WRITE( 6 ,411)  IES , LES , ILS , LLS , NCHANNELS , NBIHS .NBPRS 
411  FORMAT ( ' OINITIAL  ELEMENT  -',15,'  LAST  ELEMENT  -',15,/, 

+  '  INITIAL  LINE  -',15,'  LAST  LINE  -',15,/, 

♦  '  NUMBER  OF  CHANNELS  -',13,/, 

♦  '0#  OF  BYTES  IN  ELAS  HEADER  -',110,/, 

+  '  #  OF  BYTES  PER  RECORD  =',I10) 

C. . . Print  headers 

CALL  HEADEROUT ( NRECOUT , CALTYPE , IET , LET , I LT , LLT , IES , LES , I LS , LLS ) 

C...Read  in  calibration  data  from  disk... Big  DO  loop 

READ(7,200)  JUNK  iSkip  header  on  calib.  file 

DO  WHILE  (NEOF  .EQ.  0) 

IF  (CALTYPE  .EQ.  'NOAA' )  THEN 

READ (7 , 10 )  REAST , RNORTH , RDEPTH , NCT , NRT , NCS , NRS 

10  FORMAT(4X,F10.0,2X,F10.0,2X,F7.3,4(2X,I6)) 

RDEPTH  •  (RDEPTH*6.*0. 3048)*10.  Idepth  in  fathoms,  convert  to  m*10 
ELSE  IF  (CALTYPE  .EQ.  '  NOS')  THEN 

READ( 7,11)  LATH , LATM , SLAT , LONH , LONM , SLON , REAST , RNORTH , 

♦  RDEPTB , NCT , NRT , NCS , NRS 

11  FORMAT( 1X,I2 ,12 ,F5. 2 ,1X,I3,I2,F5.2,2X,F10.0,2X,F10.0,2X, 

+  F7.1,2X,I6,2X,I6,2X,I6,2X,I6) 

LAT  »  10000*LATH  ♦  100*LATM  ♦  INT(SLAT) 

LON  .  10000*L0NH  +  100*L0NM  ♦  INT(SLON) 

RDEPTH  -  RDEPTH*10  Idepth  in  meters,  convert  to  m*10 
END  IF 

I EAST  =  REAST 

NORTH  -  RNORTH 

NRECIN  =  NRECIN  *  1  ! increment  input  counter 

C... Check  for  eof  of  calibration  file 

IF  (NCT  .EQ.  1  .AND.  NRT  . EQ .  1  .AND.  RDEPTH  .EQ.  0 . >  THFN 
NEOF  =  1 

C... Check  that  calibr\f;  m  point  is  in  the  image 

ELSE  IF  ((NCT  LET  .AND.  NCT  .GE.  IET  .AND. 

♦  NRT  .u£.  LLT  .AND.  NRT  .GE.  ILT)  .AND. 

♦  (NCS  .LE.  LES  .AND.  NCS  .GE.  IES  .AND. 

+  NRS  .LE.  LLS  .AND.  NRS  .GE.  ILS))  THEN 

IPLACES  =  5 


CALL  IMAGEIN ( LUIMAGE1 , NBPRT , NCHANNELT , LET , INTENSET , NCT , 

♦  NRT, IPLACES, ILT, IET)  linside  image,  get  gray  level 

IPLACES  =  3 

CALL  IMAGEIN( LUIMAGE2 , NBPRS , NCHANNELS , LES , INTENSES , NCS , 

♦  NRS, IPLACES, ILS.IES)  ! inside  image,  get  gray  level 

C... Write  out  the  data  record  to  the  DST 

CALL  IMAGEOUT( LAT , LON , I EAST , NORTH , RDEPTH , NCT , NRT , INTENSET , 

♦  NCS, NRS, INTENSES) 

NRECOUT  -  NRECOUT  ♦  1 

C. .. Periodically,  let  user  know  that  something  is  being  accomplished 
IF  (MOD (NRECOUT, 100)  .£Q.  0)  VRITE(6,910)  NRECOUT 
910  F0RMAT(I7,'  records  vritten  to  DST  file.') 

ELSE 

NOUT  =  NOUT  +  1  loutside  of  at  least  one  image 
IF  ((NCT  .LE.  LET  .AND.  NCT  .GE.  IET)  .AND. 

♦  (NRT  .LE.  LLT  .AND.  NRT  .GE.  ILT) )  THEN 

IPLACES  -  5 

CALL  IMAGEIN( LUIMAGE1 , NBPRT , NCHANNELT , LET , INTENSET , NCT , 

+  NRT, IPLACES, ILT, IET)  linside  image,  get  gray  level 

ELSE 

NCT  «  0 
NRT  -  0 
DO  I  -  1,5 

INTENSET(I)  -  0 
END  DO 
END  IF 

IF  ((NCS  .LE.  LES  .AND.  NCS  .GE.  IES)  .AND. 

♦  (NRS  .LE.  LLS  .AND.  NRS  .GE.  ILS))  THEN 

IPLACES  -  3 

CALL  IMAG£IN( LUIMAGE2 , NBPRS , NCHANNELS, LES , INTENSES , NCS , 

♦  NRS, IPLACES, ILS, IES)  linside  image,  get  gray  level 

ELSE 

NCS  -  0 
NRS  -  0 
DO  I  -  1,3 

INTENSES(I)  *  0 
END  DO 
END  IF 

CALL  IMAGEOUT(LAT , LON , I EAST , NORTH , RDEPTH , NCT , NRT , INTENSET , 

♦  NCS, NRS, INTENSES) 

NRECOUT-NRECOUT+1 

C. .. Periodically,  let  user  know  that  something  is  being  accomplished 
IF  (MOD (NRECOUT, 100)  .EQ.  0)  VRITE(6,910)  NRECOUT 
END  IP 
END  DO 

C...NRECIN  counts  eof  flag  on  end  of  calibration  file.  Correct  that. 

NRECIN  =  NRECIN  -  1 

C. . . Record  number  of  output  records  in  dst  header 

CALL  HEADEROUT( NRECOUT , CALTYPE , IET , LET , ILT , LLT , IES , LES , I LS , LLS ) 

C...End  of  Job  Routine 

WRITE (6, 500)  NRECIN,  NOUT,  NRECOUT 
500  FORMAT (' ONumber  of  calibration  points  read  in: ',110,/, 

+  '  Number  of  calib.  pts.  out  of  range:  ',110,/, 

♦  '  (i.e.,  off  at  least  one  image)',/, 

+  '  Number  of  data  records  vritten  out:  ',110) 

CALL  HISTDO 
RETURN 


END 


£*#****★**★★★ *■***★★★**★★**★★★*★★*****★★*★★**★*★★*★*** ************* 


SUBROUTINE  IMAGEIN( LUNIT , NBPR , NCHANNEL , LE , INTENSE , NC , NR , 

*  IPLACES.IL, IE) 

COMMON  //  B(20000) 

BYTE  AIM(5000,7) 

INTEGER  INTENSE(*),  2 

C...Get  gray  levels  of  calibration  pixels 

C-..Set  NBAND  according  to  TM  or  SPOT  image 

NINC  -  NBPR/512  !#  of  512  byte  physical  recotds/image  line 

NBAND  «  NINC*NCHANNEL  !»  of  bands  *  «  of  records/band 
NEND  «  NINC  -  1  ! loop  limit 

NELEM  «  LE-IE+1 

C*..Read  each  512-byte  block  of  the  input  file  and  store  it  in  the 

C  appropriate  byte  array... 

C  loop  over  each  physical  record  in  the  logical  record 
NREC  -  3  ♦  NBAND*(NR-IL)  ! first  record  to  read 
DO  2  «  0 , NEND 

N1  «  (512*Z)+1  1  first  byte  to  read 

N2  -  512*(Z+1)  !last  byte  to  read 
IF  (N2  .GT.  NELEM)  N2  -  NELEM 

DO  K.  *  l.NCHANNEL  tread  in  each  channel 

NUMRE  .  NREC  ♦  Z  ♦  NINC*(K-1)  !get  record  number 
READ( LUNIT , REC«NUMRE)  (AIM(N.K) ,N-N1 ,N2) 

END  DO 
END  DO 

C... Store  desired  gray  levels 
NPIX  .  NC-IE+1 
DO  K  -  1 , IPLACES 

INTENSE(K)  .  AIM(NPIX.K) 

IF  (INTENSE(K)  .LT.  0) 

+  INTENSE(K)  -  INTENSE(K)  ♦  256 
END  DO 
RETURN 
END 


Q+irk  *** ***★*★*********★★*★**★****★*********★★******* ************** 


SUBROUTINE  IMAGE0UT( UT , LON , IEAST , NORTH , DEPTH , NCT , NRT , 

+  INTENSET.NCS.NRS, INTENSES) 

C..,This  subroutine  writes  out  data  records  to  the  DST  file  and  fills 
C. . .histograms  for  info  on  the  data  set. 

INTEGER  INTENSET(5),INTENSES(3)  tgray  levels 

IDEPTH  =  DEPTH  ! convert  to  integer 

VRITE(9,10)  LAT, LON, IEAST, NORTH, IDEPTH, NCT, NRT,  ! write  out  data  record 
*  (INTENSET(h) ,N*1 , 5) .NCS.NRS , ( INTENSES (N) ,N=1 , 3 > 

10  F0RMAT(5I8,12I4) 


C...Do  some  histogramming  of  output  data 
DO  NH  =  1,5 

XX  *  FLOAT (INTENSET(NH) ) 

CALL  HFILL(NH,XX,0. ,1. ) 

END  DO 


XDEPTH  =  DEPTH/ 10. 

CALL  HFILL(6, XDEPTH, 0. ,1.) 

RETURN 

END 


£***★•*★**■****  *  .  s **•*»★* ★★****★★★★»»**★*****★★****★***★**★* *•*★,«★* 


SUBROUTINE  ,jiAD,','OUT{NRECOUT , CALTVPE , IET, LET, ILT, LLT, 

♦  1ES, LES , ILS, LLS) 

C...This  subroutine  prints  cut  header  and  trailer  records  on  DST  file 

COMMON  /LETTERS/  IMAGEPILE1 .CALFILE, INFO, IMAGEFILE2 
CHARACTER* 130  INFO 
CHARACTER* 4  CALTYPE 

CHARACTER*40  IMAGEFILE1 , IMAGEFILE2 , CALFILE 

DATA  I LAT, ILON, NIEAST , INORTH , INC, INR, ICS, IRS  /8*0/ 

C...If  NRECOUT  is  zero,  print  a  header  record 
IF  (NRECOUT  .EQ.  0)  THEN 

VRIT£(9, 1 5 )  CALTYPE , IMAGEFILE1 , IMAGEFILE2 
WRITE( 9 , 40 )  I~T , LET , ILT , LLT , IES, LES , ILS , LLS 
VRITE(9,10)  INFO 
ELSE 

C. . .Otherwise  print  trailer  records.  Two  are  needed.  Trailer  records  have 
C...same  format  as  data  records,  save  a  bunch  of  zeros  and  depth  field  is 
C. . . filled  with  number  of  data  records. 

WRITE( 9 , 30 )  I LAT , I LON , NIEAST , INORTH , NRECOUT , INC , INR , ILS , IRS 
VRITE (9,30)  I LAT , I LON , NIEAST , INORTH , NRECOUT , INC , INR , ICS , IRS 
CLOSE(9) 

END  IF 

10  FORMAT (A1 30) 

15  F0RMAT( ' BOTH' ,A4, 2(A40) ) 

30  fORMAT(5I8,4I4) 

40  FORMAT('IET' ,14,'LLT  , 14, ' ILT',14, ' LLT' ,14, 

♦  'IES' ,14, 'LES' ,i4,' ILS', 14, 'LLS', 14) 

RETURN 

END 
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PROGRAM  EDGE 

THIS  PROGRAM  FILTERS  A  ONE-CHANNEL  IMAGE  USING  A  SYMMETRIC  NEAREST 
NEIGHBOR  ROUTINE  ON  AREAS  CLOSE  TO  OR  CONTAINING  LAND  VALUES  IN  AN 
EFFORT  TO  PRESERVE  EDGES  AND  FEATURES. 

PARAMETER  (N=512)  !  NUMBER  OF  BYTES  PER  BLOCK  IN  AN  ELAS  FILE 

PARAMETER  (MAXV.9)  !  MAXIMUM  VINDOV  SIZE 

PARAMETER  (MAXE-4500)  !  MAXIMUM  NUMBER  OF  ELEMENTS  PER  LINE 

PARAMETER  (MAXP«MAXV*MAXV)  !  MAXIMUM  NUMBER  OF  PIXELS  IN  THE  VINDOV 

PARAMETER  (MAXC^(MAXP+.)/2)  !  MAXIMUM  NUMBER  OF  PIXELS  CHOSEN 

!  IN  THE  NEAREST  NEIGHBOR  ROUTINE  SNN 

BYTE  AIM(MAXE.MAXV) ,BIM(HAXE) 

INTEGER  IMAGE(MAXP) 

INTEGER  CHOSEN (MAXC) 

CHARACTER* 4 500  C(MAXV) 


INTEGER  M , NREC , M2 , NREC2 , NREC3 ,N0C,K,K1 

INTEGER  NL , NE , NM1 , MAXZ , MAXR 

INTEGER  NBIH , NBPR , IL , LL , IE , LE , NC , IDESC 

CHARACTER* 1  KEY 

CHARACTER*40  INFILE 

CHARACTER*40  OUTFILE 

CHARACTER* 132  COMMENT 

LOGICAL  FOUND  !  VARIABLE  USED  TO  FUG  THAT  A  LAND  PIXEL  VAS  FOUND 

EQUIVALENCE  (AIM.C) 

VRITE( 6 ,*)  '*****★********************************' 

VRITE(6,*)  '*  *' 

VRITE(6 , *)  '*  SNN  FILTER  *' 

VRITE(6,*)  '*  *' 

VRITE( 6 i*)  '**************************************' 

VRITE(6 , *) 

VRITE(6,*)  'Enter  input  file  name:  ' 

READ(5, 200)  INFILE 

VRITE(6,*)  'Enter  output  file  name:  ' 

READ(5,200)  OUTPILE 
VRITE(6,*) 

VRITE(6,*)  'Enter  size  of  the  filter  window,' 

VRITE(6,*)  'max  allowed  is  9:' 

READ(5,*)  M 
IF  (M.GT.MAXV)  THEN 

STOP  'VINDOV  IS  TOO  LARGE' 

END  IF 

IF  ( MOD( M , 2 )  .EQ.  0)  THEN 

STOP  'VINDOV  SIZE  MUST  BE  ODD' 

END 

VRITE( A , * ) 

M2-M*M 

NOC=(M2+l)/2  !  NUMBER  OF  DIAMETRICALLY  OPPOSED  FAIRS  IN  THE  VINDOV 

K  =  (M2+1 )/2  !  POSITION  IN  ARRAY  "IMAGE"  OF  THL  CENTER  PIXEL  OF  THE 

!  FILTER  VINDOV 

K1  =  (M-l)/2  !  LOOP  CONTROL  VARIABLE  TO  SKIP  APPROPRIATE 


!  NUMBER  OF  PIXELS  AT  BEGINNING  AND  END  OF  LINE 


VRITE(6 , *)  'Do  you  wish  to  do  a' 

VRITE( 6 , * )  'Mean  -  Enter  1' 

VRITE( 6 , * )  'or  a  Median  -  Enter  2' 

WRITE(6 , * )  'or  a  Min  Depth  -  Enter  3' 

WRITE(6,*)  'filter?' 

READ(5, 100)  KEY 

IF  ( (KEY .NE. ' 1 ' ) .AND. (KEY. NE. ' 2 ' ) .AND. (KEY . NE. '  3'  ))  THEN 
STOP  'KEY  IS  INCORRECT' 

END  IF 

100  FORMAT(Al) 

200  F0RMAT(A40) 

VRITE(6 , * ) 

0PEN( 1 1 , FILE-INFILE , ACCESS- ' DIRECT ' , 

♦  STATUS- ' OLD' , READONLY , I0STAT-I0S1 ) 

0PEN( 12 , FILE-OUTFILE , 

♦  STATUS- ' NEW ', ACCESS- 'DIRECT ' , 

♦  FORM- ' UNFORMATTED ' ,RECL- 128) 

IF  (IOSl.NE.O)  STOP  'ERROR  IN  INPUT  FILE' 


_ READ  HEADER  OF  INPUT  FILE. 

READ< 1 1 , REC- 1 )  NBIH, NBPR , IL , LL , IE , L£ , NC , IDESC 

_ WRITE  HEADER  OF  OUTPUT  FILE. 

WRITE (12, REC- 1)  NBIH, NBPR, IL, LL, IE, LE,NC, IDESC 

_ WRITE  A  COMMENT  TO  THE  OUTFILE  HEADER. 

WRITE(6,*)  'Enter  comments,  up  to  132  characters:' 

READ(5, 300)  COMMENT 
WRITE(12,REC-2)  COMMENT 
300  FORMAT (A80) 

NREC  -  3  !  SKIP  HEADER  OF  INFILE 

NL  -  LL  -  IL  4-  1  !  TOTAL  NUMBER  OF  LINES 

NE  «  LE  -  IE  +  1  !  TOTAL  NUMBER  OF  ELEMENTS 

MAXR  -  INT( (NBPR*NL)/N  +  2)  !  NUMBER  OF  BLOCKS  IN  INFILE 

MAXZ  -  INT(NBPR/N)  !  NUMBER  OF  BLOCKS  PER  INPUT  LINE  (ONE  CHANNEL) 

MAXREC  -  MAXR-(M*MAXZ)*1  !  MAXIMUM  VALUE  THAT  NREC  CAN  OBTAIN 


READ  IN  GRAY  VALUES  FOR  THE  FIRST  M-l  LINES. 

DO  KOUNT  -  1 , M-l 
DO  IZ  =  0, MAXZ-1 
N1  =  (N*IZ)+1 
N2  =  N*( IZ+1 ) 

IF  (N2  .GT.  NE;  N2  -  NE 

NREC2 -NREC+ IZ+ (KOUNT - 1 ) *MAXZ 

READ( 1 1 , REC-NREC2 )  (AIM(1 , KOUNT) ,  1-N1.N2) 

ENDDO 

ENDDO 

DO  WHILE  (NREC  .l.E.  MAXREC)  !  START  OF  MAIN  LOOP  TO  PROCESS  ONE  LINE 


o  o  o  o 


C .  THIS  READ  COMPLETES  THE  VINDOV  BY  READING  THE  Mth  LINE  TO  BE  USED. 

DO  IZ=0 , MAXZ-1 
N1=(N*IZ)*1 
N2-=  N*(IZ  +  1) 

IF  (N2.GT.NE)  N2-NE 

NREC3  =  NREC  ((M-1)*MAXZ)  ♦  IZ 

READ( 1 1 , REC*NREC3 )  (AIM(I,M),I>N1,N2) 

END  DO 

NM1  *  NE-M+1 

DO  KC  -  l.NMl  i  LOOP  TO  PROCESS  AS  VINDOW  MOVES  ALONG  LINE 

C . READ  IN  ONE  VINDOV,  STORE  IN  "IMAGE". 

KOUNT  «  1 
DO  I  •  1,M 

DO  J  -  KC.KC+M-1 

I MAGE (KOUNT)  -  AIM(J,I) 

IF  (I MAGE (KOUNT)  .LT.  0) 

+  I MAGE (KOUNT)  .  I MAGE (KOUNT)  +  256 

KOUNT  -  KOUNT  +  1 
ENDDO 
ENDDO 

C . A  SEARCH  IS  NOV  PERFORMED  FOR  LAND  PIXELS 

CALL  SEARCH( IMAGE, M2, FOUND) 

CHECK  THE  CENTER  PIXEL.  IF  IT'S  VATER  AND  THE  VINDOV  CONTAINS  A  LAND 
PIXEL  THEN  USE  THE  SNN  FILTER;  IF  IT'S  VATER  AND  THERE  IS  NO  LAND 
IN  THE  VINDOV  USE  A  REGULAR  FILTER;  OTHERVISE  THE  CENTER  PIXEL  IS 
LAND  AND  USE  THE  SNN  FILTER. 


IF  ( IMAGE(K) .NE. 250)  THEN 
IF  (FOUND)  THEN 
DO  L2-0.N0C-1 

CALL  SNN ( IMAGE (K-L2) , IMAGE(K) , IMAGE(K+L2 ) ,CHOSEN(L2+l ) ) 

END  DO 

IF  (KEY.EQ. ' 1' )  CALL  MEAN ( CHOSEN, NOC, IMAGE (K)) 

IF  (KEY.EQ. '2')  CALL  MEDIAN(CHOSEN,NOC,IMAGE(K) ) 

IF  (KEY.EQ. '3')  CALL  MINDEPTB( CHOSEN , NOC, IMAGE(K) ) 

ELSE 

IF  (KEY.EQ. '1')  CALi.  MEAN( IMAGE, M2,  IMAGE(K)  ) 

IF  (KEY.EQ. '2')  CALL  MEDIAN( IMAGE, M2 , IMAGE(K) ) 

IP  (KEY.EQ. '3')  CALL  MINDEPTH(IMAGE,M2,IMAGE(K)) 

END  IF 
ELSE 

DO  L2«0,N0C-1 

CALL  SNN ( IMAGE (K-L2 ) , IMAGE (K) , IMAGE(K+L2 ) ,CBOSEN( L2+1 ) ) 

END  DO 

IF  (KEY.EQ. '1')  CALL  MEAN(CHOSEN,NOC,IMAGE(K)) 

IF  (KEY.EQ. '2')  CALL  MEDIAN (CHOSEN, NOC, IMAGE(K) ) 

IF  (KEY.EQ. '3')  CALL  MINDEPTH(CHOSEN,NOC,  IMAGE(K) )  !:r.akes  no  diff. 
END  IF 

IF  ( IMAGE(K) . GE . 128 )  IMAGE(K)  =  IMAGE(K)  -  256 
BIK(KC-Kl)  -  IMAGE (K) 


ENDDO  !  KC  LOOP 


C . WRITE  TO  OUTPUT  FILE. 

DO  IZ  *  O.MAXZ-l 
N1  =  (N*IZ)+1 
N2  =  N*(IZ+1 ) 

IF  (N2  .GT.  NE)  N2  -  NE 
NREC2=NR£C+IZ+( (K1)*MAXZ) 

VRITE( 12 , REC  -  NREC2)  (BIM(I ) , I-Ml , N2 ) 

END  DO 

C . THE  LAST  M-l  LINES  OF  THE  WINDOW  ARE  COPIED  TO  THE  FIRST  M-l  LINES 

C . AND  THE  WINDOW  IS  COMPLETED  BY  THE  READ  AT  THE  BEGINNING  OF  THE  LOOP. 

DO  1*1 , M-l 
C( I )  -  C(I-l) 

END  DO 

NREC  *  NREC+MAXZ  !  INCREMENT  NREC  TO  SKIP  TO  NEXT  LINE 

ENDDO  •  !  END  "WHILE"  LOOP 

C . "BLANK  OUT"  THE  REMAINING  BLOCKS  USING  NREC2 

NREC2  .  NREC 2  +  1 
DO  WHILE  (NREC2  .LE.  MAXR) 

WRITE ( 12 , REC*NREC2 ) 

NREC 2  -  NREC 2  ♦  1 
END  DO 

WRITE(6 , *) 

WRITE(6 , * )  '*********  FILTER  COMPLETED  *********' 

WRITE(6 , *) 

END 

C*************************************** *********** 

SUBROUTINE  SNN(B,C,D,A) 

C . COMPARES  DIAMETRICALLY  OPPOSED  PAIRS  AND  SELECTS  THE  NEAREST  NEIGHBOR 

C . B  AND  D  ARE  THE  PAIR  MEMBERS,  C  IS  THE  CENTER  PIXEL  AND 

C . A  IS  THE  SELECTED  VALUE 

INTEGER  B.C.D.A 

CC  -  C  *  C 

IF  ((B  *  D)  .GT.  CC)  THEN 
IF  (B  .GT.  D)  THEN 
A  «  D 
ELSE 
A  -  B 
ENDIF 

ELSE  IF  ((B  ♦  D)  .LT.  CC)  THEN 
IF  (B  .GT.  D)  THEN 
A  =  B 
ELSE 
A  *  D 
ENDIF 
ELSE 
A  *  C 
ENDIF 
RETURN 
END 


C***** ***************** **************************** 

SUBROUTINE  MEAN(GVALUES,NEL,MIDPIX) 

C . CALCULATES  AVERAGE  OF  THE  VALUES  IN  GVALUES,  AN  ARRAY  OF  SIZE  NEL, 

C . AND  ASSIGNS  THIS  AVERAGE  TO  MIDPIX 
INTEGER  GVALUES( * ) ,  NEL,  MIDPIX 
REAL  SUM 

SUM-0.0 
DO  1  =  1 , NEL 

SUM  -  SUM  ♦  GVALUES(I) 

END  DO 

MIDPIX  -  NINT((SUM/NEL)) 

RETURN 

END 

C***** ********************************************** 

SUBROUTINE  MEDIAN(GVALUES, NEL, MIDPIX) 

C . CALCULATES  MEDIAN  OF  THE  VALUES  IN  GVALUES,  AN  ARRAY  OF  SIZE  NEL, 

C . AND  ASSIGNS  THIS  MEDIAN  IN  MIDPIX 

INTEGER  GVALUES(*) ,  NEL,  MIDPIX,  TEMP,  ENDVAL 
LOGICAL  SORTED 

SORTED  *  .FALSE. 

ENDVAL  *  NEL-1 
DO  VHILE(. NOT. (SORTED)) 

SORTED  -  .TRUE. 

DO  200  1=1, ENDVAL 

IF  (GVALUES(I)  .GT.  GVALUES(I*1))  THEN 
TEMP  »  GVALUES(I) 

GVALUES(I)  =  GVALUES(I  +  1) 

GVALUES(It-l)  =  TEMP 
SORTED  -  .FALSE. 

END  IF 
200  CONTINUE 

ENDVAL  =  ENDVAL- 1 
END  DO 

IF  (MOD(NEL, 2)  .EQ.  0)  THEN 

TEMPPIX  =  (FL0AT(GVALUES(NEL/2)  +  GVALUES((NEL/2)+l)))/2 
ELSE 

TEMPPIX  «  FLOAT ( GVALUES (( NEL* 1 )/2 ) > 

END  IF 

MIDPIX  -  NINT(TEMPPIX) 

RETURN 

END 


C**  ************************************  ************ 
SUBROUTINE  SEARCH (GVALUES, NEL, FOUND) 

C . SEARCHES  FOR  LAND  PIXELS  IN  WINDOW 

INTEGER  GVALUES(*).  NEL 
LOGICAL  FOUND 

FOUND  =  .FALSE. 

I  =  1 

DO  WHILE  ((.NOT.  FOUND)  .AND.  (I  .LE.  NEL)) 

IF  (GVALUES(I)  .EQ.  250)  THEN 
FOUND  =  .TRUE. 


ELSE 

1=1  +  1 
END  IF 
END  DO 

RETURN 

END 


SUBROUTINE  MINDEPTH(GVALUES , NEL , MIDPIX) 

C . SEARCHES  FOR  THE  MINIMUM  DEPTH  OF  THE  WATER  PIXELS  IN  THE  WINDOW. 

INTEGER  GVALUES(*),NEL, MIDPIX 
INTEGER  MIN 

MIN  =  500 

IF  (MIDPIX. NE. 250)  THEN 
DO  I  =  l.NEL 

IF  ((GVALUES(I)  .LT.  MIN). AND.  (GVALUES(I) .NE. 250) )  THEN 
MIN  =  GVALUES(I) 

END  IF 
END  DO 

MIDPIX  -  MIN 
END  IF 


RETURN 

END 
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PROGRAM  EDGEMULTI 

.This  program  filters  an  image  file  (one  or  more  channels)  using  a 
•symmetric  nearest  neighbor  routine  in  an  effort  to  preserve  edges  and 
. features . 

PARAMETER  (N-512)  {Number  of  bytes  per  block. 

PARAMETER  (MAXW-9)  ! Maximum  window  si2e. 

PARAMETER  (MAXE-4500)  {Maximum  number  of  elements  per  line. 

PARAMETER  (MAXCH-7)  {Maximum  number  of  channels  in  input  file. 

PARAMETER  (MAXP«MAXW*MAXV)  {Maximum  number  of  pixels  in  window. 

PARAMETER  (HAXC*(MAXP+1 )/2)  {Maximum  number  of  pixels  chosen 

!  in  the  nearest  neighbor  routine  SNN. 

BYTE  AIM(MAXE, MAXV) ,BIM(MAXE) 

INTEGER  IMAGE(MAXP) ,CHOSEN(HAXC) 

INTEGER  CHAN(MAXCH) 

CHARACTER*4500  C(MAXV) 

INTEGER  M , NREC , M2 , NREC2 , NREC3 , NOC , K , K1 

INTEGER  NL , NE , NM1 , MAXZ , MAXR , I SKI P , IC . NUMCHAN 

INTEGER  NBIH , NBPR , IL , LL , IE , LE , NC , IDESC 

CHARACTER* 1  KEY 

CHARACTER*40  INFILE, OUTFILE 
CHARACTER* 132  COMMENT 
LOGICAL  FOUND 

EQUIVALENCE  (AIM,C) 

WRITE ( 6,*)  9 ************************************** ' 

WRITE(6,*)  '*  *' 

WRITE(6,*)  '*  SNN  FILTER  *' 

WRITE(6 , *)  '*  *' 

WRITE (6 ,*)  ' ****************************  ********** ' 

VRITE(6,*) 

VRITE(6,*)  'Enter  input  file  name:  ' 

READ(5, 100)  INFILE 
VRITE(6,*)  'Enter  output  file  name:  ' 

READ(5,100)  OUTFILE 
VRITE(6,*) 

OPEN( 1 1 , FI LE-INPI LE , ACCESS- ' DIRECT ' , 

♦  STATUS- 'OLD' , READONLY, I0STAT-I0S1 ) 

0PEN( 12 , FILE-OUTFILE, 

+  STATUS-' NEW' .ACCESS- 'DIRECT' , 

♦  FORM- ' UNFORMATTED' .RECL-128) 

IF  (I0S1.NE.0)  STOP  '**  Something' 's  screwy  about  input  file  **' 

C . Read  header  of  input  file. 

READ (11, REC. 1 )  NBIH , NBPR , I L , LL , I E , LE , NC , IDESC 

C . Write  header  of  output  file. 

WRITE (12, REC- 1)  NBIH, NBPR, IL,LL, IE, LE,NC, IDESC 

WRITE(6 , 50)  NC 

50  F0RMAT(1X, 'Input  file  has  ',12,'  channel(s) . ' ) 

WRITE(6,*)  'Enter  the  number  of  channels  to  be  filtered:' 

READ (5,*)  NUMCHAN 


VRITE(6,*)  'Enter  the  channel(s)  to  be  filtered:' 
READ(5 , *)  (CHAN(I),I-1,NUMCHAN) 


VRITE(6,*)  'Enter  size  of  the  filter  window,' 

VRITE(6,*)  'maximum  allowed  is  9:' 

READ( 5 ,  *)  M 

IF  (M.GT.MAXV)  STOP  '***  Window  is  too  large  ***' 

IF  (M0D(M,2) , EQ.O)  STOP  '***  Window  size  must  be  odd  ***' 

WRITE(6, *) 

M2«M*M 

NOC»(M2«-l)/2  INumber  of  diametrically  opposed  pairs  in  a  window. 

K  -  (M2+l)/2  IPosition  in  array  IMAGE  of  the  window's  center  pixel. 

K1  «  (M-l)/2  !Loop  control  variable  used  to  skip  appropriate 

!  number  of  pixels  at  beginning  and  end  of  line. 


WRITE(6,*)  'Do  you  wish  to  do  a' 

WRITE(6, *)  'Mean  -  Enter  1' 

WRITE(6,*)  'or  a  Median  -  Enter  2' 

WRITE(6 , *)  'or  a  Minimum  Value  -  Enter  3' 

WRITE(6»*)  'filter?' 

READ(5, 100)  KEY 

IF  ( (KEY.NE. ' 1 ' ) • AND. (KEY.NE. ' 2' ) .AND. (KEY.NE. ' 3' ) )  THEN 
STOP  ' ***  Key  is  incorrect  ***' 

END  IF 
WRITE(6 , *) 


C . Write  comment  to  the  output  file  header. 

VRITE(6, *)  'Enter  comments,  up  to  132  characters:' 
READ(5,100)  COMMENT 
WRITE( 12 , REC»2 )  COMMENT 
VRITE(6 , * ) 

100  FORMAT(A) 


NL  =  LI  -  IL  *  1  ITotal  number  of  lines. 

NE  =  LE  -  IE  +  1  ITotal  number  of  elements. 

MAXR  =  INT((NBPR*NL*NC)/N  ♦  2)  INumber  of  blocks  in  input  file. 

MAXZ  *  INT(NBPR/N)  INumber  of  N-byte  blocks  per  line. 


C . Perform  the  filter  by  channel. . .BIG  do  loop! 

DO  IC  «  1 , NUMCHAN 

I  Skip  to  appropriate  channel,  line  1: 

NREC  »  3  -  (CHAN(IC)-1)*MAXZ 
WRITE(6, 150)  CHAN(IC) 

150  F0RMAT( IX, ' Processing  channel  ',12) 

ICompute  the  maximum  value  NREC  can  obtain: 

MAXKEC  =  HAXR  -  (M*NC*MAXZ)  +  (CHAN(IC)-1)*MAXZ  -  1 

C . Read  in  gray  values  for  the  first  M-l  lines. 

DO  K0UNT  =  1 , M-l 
DO  IZ  -  0, MAXZ-1 
N1  -  (N*IZ)+1 
N2  «  N*( IZ+1 ) 

IF  (N2  .GT.  NE)  N2  -  NE 
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NREC2  *  NREC  ♦  IZ  ♦  NC* ( KOUNT- 1)*MAXZ 
READ(11,REC-NREC2)  (AIM(I , KOUNT) ,  I-N1.N2) 

ENDDO 

ENDDO 

DO  VHILE  (NREC  .LE.  MAXREC)  ! Start  of  main  loop  to  process  one  line 

C . This  read  completes  the  MxM  window  by  reading  the  Mth  line. 

DO  IZ.0,MAXZ-1 
N1«(N*IZ)+1 
N2-  N*(IZ+1) 

IF  (N2.GT.NE)  N2-NE 

NREC 3  -  NREC  ♦  ( (M-1)*MAXZ*NC)  ♦  IZ 

READ( 1 1 , REC-NREC3 )  (AIM(I,M) ,I-N1,N2) 

END  DO 

NM1  -  NE-M+1 

DO  KC  -  1,NM1  JLoop  to  process  as  window  moves  along  line. 


C . Read  in  one  window,  store  in  IMAGE. 

KOUNT  -  1 
DO  I  *  1 , M 

DO  J  .  KC.KC+M-l 

I MAGE (KOUNT)  -  AIM(J,I) 

IF  (IMAGE(KOUNT)  .LT.  0) 

*  IMAGE (KOUNT)  -  I MAGE (KOUNT)  +  256 

KOUNT  -  KOUNT  ♦  1 
ENDDO 
ENDDO 


. This  section  of  code  deals  with  window  processing. 


DO  L2»0, NOC-1 

CALL  SNN(IMAGE(K-L2) , IMAGE(K) , IMAGE(K+L2) ,CH0SEN(L2+1) ) 
END  DO 

IF  (KEY.EQ. ' 1' )  CALL  MEAN(CHOSEN,NOC,IMAGE(K)) 

IF  (KEY.EQ. '2')  CALL  MEDIAN(CH0SEN,N0C,IMAGE(K) ) 

IF  (KEY.EQ. '3')  CALL  MINVAL(CR0SEN , NOC, IMAGE(K) ) 


IF  ( IMAGE (K) .GE. 128)  IMAGE(K)  »  IMAGE(K)  -  256 
BIM(KC+K1)  -  IMAGE(K) 


Cs  = 


CCK«C*«KS1 


ENDDO  !KC  loop 

C . Vrite  to  output  file. 

DO  IZ  s  O.MAXZ-l 
N1  =  (N*IZ)+1 
N2  *  N*( IZ+1 ) 

IF  (N2  .GT.  NE)  N2  -  NE 
NREC2  -  NREC  +  IZ  +  (K1*NC*MAXZ) 

URITE(12,REC  -  NREC2)  (BIM(I) ,I«N1 ,N2) 

END  DO 

C . The  last  M-l  lines  of  the  window  are  copied  to  the  first  M-l  lines 

C . and  the  window  is  completed  by  the  read  at  the  beginning  of  the  loop 

DO  1*1  ,M-1 
C(I)  -  C(I+1) 


non 


END  DO 


NREC  =  NREC  +  NC*MAXZ  JIncrement  NREC  to  skip  to  the  next  line. 
ENDDO  ! End  "WHILE"  loop. 

; . "Blank  out"  the  remaining  blocks  in  ICHAN  using  NREC2. 

. ISKIP  -  (NC-1 )*MAXZ  !To  skip  appropriate  channels. 

NREC2  «  NREC2  ♦  1  +  ISKIP 

DO  WHILE  (NREC2  .LE.  (MAXR-(NC-CHAN(IC) )*MAXZ) ) 

DO  IZ-O.MAXZ-l 

NREC2  «  NREC2  ♦  IZ 
WRITE( 12 ,REC-NREC2) 

ENDDO 

NREC2  -  NREC 2  +  1  +  ISKIP 
ENDDO 

ENDDO  JBIG  do  loop  on  IC. 

C . Nov,  copy  the  unfiltered  channel-. 

DO  IC  *  1 ,NC 

CALL  SEARCH (CHAN, IC.NC, FOUND) 

IF  (.NOT.  FOUND)  THEN  ICopy  the  unfiltered  channel. 

WRITE(6, 160)  IC 

160  F0RMAT( IX, 'Copying  channel  ',12) 

NREC  -  3  ♦  (IC-1)*NAXZ 

MAXREC  *  MAXR  -  (NC-IC+1 )*HAXZ  ♦  1 

DO  WHILE  (NREC  .LE.  MAXREC) 

DO  IZ-O.MAXZ-l 
N1  -  (N*IZ)+1 
N2  -  N*(IZ+1) 

IF  (N2  .GT.  NE)  N2  «  NE 

READ( 1 1 , REC-NREC+IZ)  (BIM(I) , I-Nl ,N2) 

WRITE(12,REC-NREC+IZ)  (BIM(I),I-N1,N2) 

ENDDO 

NREC  =  NREC  ♦  NC*MAXZ 
ENDDO 
ENDIF 
ENDDO 


WRITE(6,*) 

WRITE(6,*)  '*********  FILTER  COMPLETED  *********' 

WRITE(6 , *) 

END 

c*****+******************************************** 

SUBROUTINE  SNN(B,C,D,A) 

SNN  compares  diametrically  opposed  pixel  pairs  and  selects  the  neares 
neighbor.  B  and  D  are  the  pair  members,  C  is  the  center  pixel  and 
A  is  the  selected  value. 

INTEGER  B,C,D.A 

CC  =  C  +  C 

IF  ((B  ♦  D)  .GT.  CC)  THEN 
IF  (B  .GT.  D)  THEN 
A  «  D 
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ELSE 
A  *  B 
ENDIF 

ELSE  IF  ((B  *  D)  .LT.  CC)  THEN 
IF  (B  .GT.  D)  THEN 
A  =  B 
ELSE 
A  -  D 
ENDIF 
ELSE 
A  -  C 
ENDIF 
RETURN 
END 

Q** *★*★**★★ ★**★**★***★★* ★★★★**★★★★**★**★* *★****★★★* 

SUBROUTINE  MEAN(GVALUES , NEL , MIDPIX) 

MEAN  calculates  the  average  of  the  values  in  GVALUES,  an  array  of  si2e 
NEL,  and  assigns  this  average  to  MIDPIX. 

INTEGER  GVALUES(*),  NEL,  MIDPIX 
REAL  SUM 

SUM-0.0 
DO  I-l.NEL 

SUM  -  SUM  ♦  GVALUES(I) 

END  DO 

MIDPIX  r  NINT( (SUM/NEL) ) 

RETURN 
END 


Q** ★*****★★★★★*★*★★★*★***★********★*★****★**★*****★* 

SUBROUTINE  MEDIAN (GVALUES , NEL , MIDPIX) 

C..... MEDIAN  calculates  the  median  of  the  values  in  GVALUES,  an  array  of  size 

C . NEL,  and  assigns  this  median  to  MIDPIX 

INTEGER  GVALUES(*) ,  NEL,  MIDPIX,  TEMP,  ENDVAL 
LOGICAL  SORTED 

SORTED  -  .FALSE. 

ENDVAL  *  NEL-1 
DO  VHILE(. NOT. (SORTED)) 

SORTED  -  .TRUE. 

DO  200  I. 1, ENDVAL 

IP  (GVALUES(I)  .GT.  GVALUES(I«-1 ) )  THEN 
TEMP  -  GVALUES(I) 

GVALUES(I)  -  GVALUES (I  +1) 

GVALUES ( I -fl)  -  TEMP 
SORTED  »  .FALSE. 

END  IF 
200  CONTINUE 

ENDVAL  «  ENDVAL- 1 
END  DO 

IF  (M0D(NEL, 2)  .EQ.  0)  THEN 

TEMPPIX  -  (FLOAT (GVALUES (NEL/ 2)  ♦  GVALUES ( ( NEL/ 2 ) ♦ 1 ) ) ) / I 
ELSE 

TEMPPIX  =  FL0AT(GVALUES((NEL+l)/2)) 

END  IF 


MIDPIX  =  NINT(TEMPPIX) 


RETURN 

END 

£*★**★*+****★*********★★**★+*+★★****★*★*★*****★*★+**★ 
SUBROUTINE  MINVAL(GVALUES,NEL,MIDPIX) 

C.....MINVAL  searches  for  the  minimum  value  pixel  in  the  fil 

C . vindov,  and  assigns  this  value  to  MIDPIX. 

INTEGER  GVALUES(*),NEL, MIDPIX 
INTEGER  MIN 

MIN  -  GV‘MJES(1) 

DO  I  *  2.NEL 

IF  (GVALUES(I)  .LT.  MIN)  MIN  -  GVALUES(I) 

END  DO 

MIDPIX  -  MIN 

RETURN 

END 

£★***********★***********★*******★****■*****★****★★* 
SUBROUTINE  SEARCH ( CHAN ,ICI1AN,NC, FOUND) 

C . SEARCH  searches  for  channel  1CHAN  in  CHAN. 

INTEGER  CHAN(M,NC,I 
LOGICAL  FOUND 

FOUND  -  .FALSE. 

I  -  1 

DO  WHILE  ((.NOT.  FOUND)  .AND.  (I  .LE.  NC)) 

IF  (CHAN(I)  .EQ.  ICliAN)  TEEN 
FOUND  -  .TRUE. 

ELSE 

1*1  +  1 
END  IF 
END  DO 


RETURN 

END 


PROGRAM  EOF 

•••.Program  EOF  writes  an  end-of-file  flag  to  a  .NOS  file  or  NOAA  file 
■...to  be  used  as  input  for  DSTMAKER. 

CHARACTER*40  INFILE 
CHARACTER* 1  CALT 

VRITE(6,*)  'This  program  accepts  a  file  and  writes  an' 

VRITE(.6,*)  'end-of-file  marker  used  by  DSTMAKER.' 

VRITE(6,*)  'This  file  must  be  the  final,  sieved  file  to  be' 
VRITE(6,*)  'used  by  DSTMAKER.' 

VRITE(6 , *) 

VRITE(6 , *)  'Enter  file:' 

READ(5 , 100)  INFILE 

OPEN ( 8 , FI LE-INFILE , STATUS* ' OLD' , ACCESS- ‘ APPEND' ) 

VRIT£(6,*)  'Enter  "N"  if  calibration  from  NOS  tape' 

VRITE(f,*)  'Enter  "C"  if  calibration  from  NOAA  chart:' 

READ(5, 100)  CALT 

IF  (CALT  .EQ.  'N'  .OR.  CALT  .EQ.  'n')  THEN 
VRITE(8 , 101 ) 

ELSE  IF  (CALT  .EQ.  'C'  .OR.  CALT  .EQ.  'c'>  THEN 
VRITE(8,102) 

ELSE 

VRITE(6,*)  'NO  END-OF-FILE  RECORD  WRITTEN' 

ENDIF 

100  FORMAT(A) 

101  F0RMAT(51X, '0.0',7X,'l' ,7X, '1' ) 

10?.  FORMAT  ( 30X,  '0.0',9X,'l',7X,'l') 


END 
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PROGRAM  ERROR 

This  program  takes  a  1-channel  land/water  image  and  plots  calibration 
points  taken  from  a  sorted  (or,  inefficiently,  from  an  unsorted)  DST  file. 

BYTE  AIM(4220)  !Max.  number  of  elements  -  4220. 

INTEGER*4  I COUNT , IDEPTH , IMAGE , NCT , NRT ,NV<  5 ) , L( 5 ) , LAT 
REAL*4  A(0:4),ERR 

CHARACTER*8  SPACES 

CHARACTER*40  DSTFILE, LWFILE , ERRORFILE , OUTFILE 
CHARACTER* 132  COMMENTS 
LOGICAL  ONIMAGE 

DATA  SPACE8  /  '  '  / 


E(  £  9  *  )  * 

VRITE(6,*)  '*  ERROR-IMAGE  CREATION  *' 

VRITE(6 , *)  ' ************************** ' 

WRITE (6,*) 

VRITE(6 , * )  'Enter  DST  file:' 

ACCEPT  12,  DSTFILE 

VRITE(6,*)  'Enttr  land/water  image  file  (1-channel):' 
ACCEPT  12,  LWFILE 

VRITE(6,*)  'Enter  error-image  output  file:' 

ACCEPT  12,  ERRORFILE 

VRJTE(6 , * )  'Enter  output  file  (for  summary  information):' 
ACCEPT  12,  OUTFILE 

VRITE(6 ,  *)  'Enter  comments  (limit  to  132  characters):' 


ACCEPT  12,  COMMENTS 
12  FORMAT(A) 

0PEH( 20 , FILE-DSTFI LE , STATUS- ' OLD' , READONLY ) 

OPEN( 25, FILE-LWPILE, FORM- 'UNFORMATTED' .READONLY, 
*  ACCESS- ' DIRECT ' , STATUS- ' OLD' .RECL-128) 

C . Read  header  from  land/vater  image  file. 


RP.AD(  2  5 ,  REC- 1 )  NBIH,  NBPH ,  I L ,  LL ,  IE ,  LE ,  NC ,  IDE  SC 

IF  (NC  .NE.  1)  STOP  'ERROR  ***  input  image  must  be  1-channel.' 

OPEN( 30 , FI LE- ERRORFILE , FORM- ' UNFORMATTED' , 

♦  ACCESS- 'DIRECT' , STATUS- ' NEW' .RECL-128) 

C . Write  header  to  error-image  file. 

VKITE(30,REC-1)  NBIB ,NBPR , IL, LL, IE , LE, NC, IDESC 

0PEN( 35, FILE-OUTFILE,  STATUS- ) 

CALL  GETINFO(L.A)  !To  get  L  infinities  and  coefficients. 

NE  -  LE-IE*1  INumber  of  elements. 

itL  -  LL-iL-1  1  Number  oi  lines. 

MAXZ  »  INT(NBPR/512)  tlotal  number  of  512-byte  blocks  pet  line. 

MAXREC  -  MAXZ*Nl  -  2  (Total  number  of  records  in  input  file. 

C . Copy  **»t  land/water  image  file  into  the  error-image  file. 


NR EC  -  3 

DO  WHILE  (NREC  .LE.  MAXREC) 

DO  I=0,MAXZ-1 
N1  =  (512*1 )+l 
N2  =  512*(I+1) 

IF  (N2  .GT.  NE)  N2  -  NE 
READ( 25 , REC-NREC+I )  (AIM(N),  N-N1.N2) 
WRITE ( 30, REC-NREC+I)  (AIM(N),  N-N1.N2) 
ENDDO 

NREC  =  NREC  +  HAXZ 
ENDDO  ! "WHILE" 

CLOSE(25) 


C . Skip  header  records  on  DST  file. 

READ(20,*) 

READ(20,*) 

READ(20,*) 


C . Read. first  record  from  DST  file. 

READ( 20,1000)  IEAST , IDEPTH , NCT , NRT , ( NV ( I ) , I = 1 , 5 ) 

SAVEROW  =  NRT 
NPTS  .  0 
NTHROW  -  0 

DO  WHILE  (IEAST  .NE.  0) 

C . Test  to  see  if  point  is  on  the  image,  both  line-  and  element-vise 

ONIMAGE  -  (NCT  .GE.  IE  .AND.  NCT  .LE.  LE)  .AND. 

-  (SAVEROW  .GE.  IL  .AND.  SAVEROW  .LE.  LL) 

IF  (ONIMAGE)  THEN 

C . Read  in  the  entire  line. 

NREC  -  3  ♦  MAXZ*(SAVEROW-IL) 

DO  Z  -  O.MAXZ-l 
N1  =  (512*Z)+1 
N2  =  512*(Z+1 ) 

IF  (N2.GT.NE)  N2-NE 

READ( 30 , R£C«NR£C*Z )  (AIM(I), I-N1.N2) 

ENDDO 

DO  WHILE  ((NRT  .EQ.  SAVEROW)  .AND.  (IEAST  .NE.  0)) 

IP  (ONIMAGE)  THEN 
RDEPTH  «  PLOAT( IDEPTH)/ 10. 

CDEPTH  =  NINT(A(0)  * 

A( 1)*ALOG(MAX(FLOAT(NV( 1)-L( 1 ) ) , 1 .0) )  ♦ 
A(2)*ALOG(MAX(FLOAT(NV(2)-L(2 ) ) , 1 .0) )  * 
A(3)*AL0G(MAX(FL0AT(NV(3)-L(3)),1.0>)  ♦ 
A(4)*ALOC(MAX(FL0AT(NV(4)-L(4)),1.0))) 

ERR  -  RDEPTH  -  CDEPTH  JActual  depth  -  calculated  depth. 

CALL  CHECK (ERR, ICOULT, IMAGE)  IPind  the  appropriate  error 

IF  (IMAGE. GE. 128) 

♦  IMAGE  -  IMAGE  -  256 

AI M( NCT- IE+ 1 ) -IMAGE 

NPTS  .  NPTS  ♦  1 
ELSE 


range . 


NTHROU  -  NTHROU  ♦  1 
ENDIF 

READ(20, 1000)  IEAST , I DEPTH, NCT, NRT, (NV(I) , 1-1,5) 

!Test  to  see  if  point  is  on  image,  element-vise. 

ONIMAGE  -  (NCT  .GE.  IE  .AND.  NCT  .LE.  LE) 

ENDDO  ! Inner  vhile  loop 

SAVEROV  -  NRT  !A  nev  row  was  encountered,  so  save  the  new  row. 

C . Vrite  out  the  completed  line. 

DO  Z  -  0,MAXZ-1 
N1  -  (512*Z)+1 
N2  =  512*(Z+1 ) 

IF  (N2.GT.NE)  N2-NE 

URITE( 30 , REC-NREC+Z)  (AIM(I) , I-Nl , N2 ) 

ENDDO 

ELSE  tA  point  not  on  the  image  was  found,  so  skip  it. 

NTHROU  -  NTHROU  ♦  1 

REaD( 20 , 1000 )  IEAST , IDEPTH , NCT , NRT , < NV( I ) , I -1 , 5 ) 

SAVEROU  .  NRT 

ENDIF 

ENDDO  !0uter  vhile  loop 


C . Urite  comments,  consisting  of  L  infinities,  coefficients,  files,  count, 

C . and  COMMENTS. 

URITE ( 30, REC-2)  'First  5  vordr 
+  'are  L1-L5,  next  ' , 

♦  '  5  vords  are  ' , 

♦  ' A0-A4  *  1000,  ', 

♦  'next  vord  is  ', 

♦  'no.  of  points:  ' , 


♦  (L(I), 1-1,5), 

♦  <INT(A<I)*1000. ), 1-0,4), NPTS,0, 

♦  'DST  file: 

-  DSTFILE, SPACE8 , 

+  ' input  file:  '  , 

♦  LUFILE , SPACES , 

+  'summary  file:  ', 

♦  OUTPILE, SPACES, 

♦  'comments:  ', 

♦  COMMENTS 

VR.TTE(  35 , 1001 )  ICOUNT 
URITF( t , lLOl )  ICOUNT 
UF.D'F(3 j ,  1002 )  NPTS 
URITE(6 , 10)2 )  NPTS 
VP.ITE( 35 , 1003)  NTHROU 
URITC(6, 1003)  NTHROU 

URITE(6 , * ) 

URITE(6,*)  '*******************' 

URITE(0 , * )  '*  COMPLETED  *' 

URITE(6,*)  '*******************' 
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1000  FORMAT (16X, 18, 8X, 18, 714) 

1001  F0RMAT(1X, 'Total  number  of  points  with  error  <  -8  or 
+  error  >  8  =  ' , 18) 

1002  F0RMAT(1X, 'Total  number  of  points  plotted  *  ',18) 

1003  F0RMAT(1X, 'Total  number  of  points  out  of  range  ■  ',18) 

END 

SUBROUTINE  CHECK(ERR, ICOUNT, IMAGE) 

This  subroutine  determines  which  range  the  error  is  in  and 
assigns  an  appropriate  value  to  the  pixel. 

INTEGERS  IC0UNT, IMAGE 
REAL*4  ERR 

IF  (ERR  .LE.  -8.)  THEN 
ICOUNT  «  IC0UNT  +  1 
IMAGE  -  99 

ELSE  IF  ((ERR  .GT.  -8.)  .AND.  (ERR  .LE.  -7.))  THEN 
IMAGE  -  100 

ELSE  IF  ((ERR  .GT.  -7.)  .AND.  (ERR  .LE.  -6.))  THEN 
IMAGE  -  101 

ELSE  IF  ((ERR  .GT.  -6.)  .AND.  (ERR  .LE.  -5.))  THEN 
IMAGE  -  102 

ELSE  IF  ((ERR  .GT.  -5.)  .AND.  (ERR  .LE.  -4.))  THEN 
IMAGE  -  103 

ELSE  IF  ((ERR  .GT.  -4.)  .AND.  (ERR  .LE.  -3.))  THEN 
IMAGE  «  104 

ELSE  IF  ((ERR  .GT.  -3.)  AND.  (ERR  .LE.  -2.))  THEN 
IMAGE  -  105 

ELSE  IF  ((ERR  .GT.  -2.)  .AND.  (ERR  .LE.  -1.))  THEN 
IMAGE  -  106 

ELSE  IF  ((ERR  .GT.  -1.)  .AND.  (ERR  .LE.  0.))  THEN 
IMAGE  -  107 

ELSE  IF  ((ERR  .GT.  0.)  .AND.  (ERR  .LE.  1.))  THEN 
IMAGE  -  108 

ELSE  IF  ((ERR  .GT.  1.)  .AND.  (ERR  .LE.  2.))  ThEN 
IMAGE  -  109 

ELSE  IF  ((ERR  .GT.  2.)  .AND.  (ERR  .LE.  3.))  THEN 
IMAGE  -  110 

ELSE  IF  ((ERR  .GT.  3.)  .AND.  (ERR  .LE.  4.))  THEN 
IMAGE  .  Ill 

ELSE  IF  ((ERR  .GT.  4.)  .AND.  (ERR  .LE.  5.))  THEN 
IMAGE  •  112 

ELSE  IF  ((ERR  .GT.  5.)  .AND.  (ERR  .LE.  6.))  THEN 
IMAGE  -  113 

ELSE  IF  ((ERR  .GT.  6.)  .AND.  (ERR  .LE.  7.))  THEN 
IMAGE  •  114 

ELSE  IF  ((ERR  .GT.  7.)  .AND.  (ERR  .LE.  8.))  THEN 
IMAGE  »  115 

ELSE  IF  (ERR  .GT  8.)  THEN 
ICOUNT  .  ICOUNT  ♦' 1 
IMAGE  -  116 
ENDIF 

RETURN 
END 
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C**** ******** *********************************************************** 


SUBROUTINE  GETINFO(L.A) 

....This  subroutine  prompts  user  for  L  infinities  and  coefficients 
....necessary  for  depth  calculation. 

INTEGER* 4  L< 5) 

REAL*4  A(0:4) 

VRITE(6,*) 

VRITE(6, *)  'Enter  L  infinities  in  the  following  order:' 
VRITE(6, *)  'TM  bands  1-5' 

VRITE(6, *) 

DO  M-1,5 
VRITE(6,75)  M 

URITE(6,*)  '(If  no  L  infinity,  enter  0)' 

READ(5,*)  L(M) 

END  DO 

75  F0RMAT( IX, ' Enter  L  infinity  for  band  ',11) 

VRITE(6 , *) 

WRITE(6,*)  'Enter  coefficients  in  the  following  order:' 
VRITE(6 , *)  'AO' 

VRITE(6 , *)  ' A1-A4  for  TM  bands  1-4' 

URITE(6 , *) 

DO  M-0,4 

WRITE(6, 76)  M 

URITE(6,*)  '(If  no  coefficient,  enter  0)' 

READ(5 ,*)  A(M) 

END  DO 

76  FORMAT ( IX, 'Enter  coefficient  A(',I1,')') 

RETURN 

END 


oooooonoooooooo 


PROGRAM  FINDLL 

.Program  to  test  for  NOS  calibration  points  in  a  desired 
.lat/lon  area. 

.Each  record  of  the  input  file  has  the  following  format: 
15  SURVEY  REGISTRY  NUMBER 

13  JULIAN  DAY 

13  CALENDAR  YEAR 

12  LATITUDE  DEGREE 

12  LATITUDE  MINUTE 

F4.2  LATITUDE  SECOND 

13  LONGITUDE  DEGREE 

12  LONGITUDE  HINUTE 

F4.2  LONGITUDE  SECOND 

15  DEPTH 

13  CARTOGRAPHIC  CODE 

A4  BLANK 


INTEGER 

REAL 

REAL 

CHARACTER*40 


LATD , LATH , LOND , LONM , ICODE 
DEPTH ,  RUTS ,  RLONS ,  DUT ,  DLON 
MAXUT ,  MAXLON ,  MINUT ,  HINLON 
INPILE, OUTFILE 


DATA  LUOUT/26/ ,LUSURV/11/ 


URITE(6 ,  *  )  '  ★■*'**********************★********** ' 

VRITE(6, *)  'This  program  searches  an  original  ' 

VRITE(6,*)  'NOS  file  for  points  in  a  particular' 

VRITE(6 , *)  'latitude/longitude  area  ' 

VRITE(6 , * )  ' ***********************************' 

URITE(6,*)  'F  .ter  the  original  NOS  file:' 

ACCEPT  200,  NFILE 

OPEN(LUSURV ,  MLE-INPILE,  STATUS-'OLD'  .READONLY) 

VRITE(6,*)  'Enter  the  output  file  name:' 

ACCEPT  200,  OUTFILE 

OPEN ( LUOUT , FILE-OUTFILE , STATUS- ' UNKNOVN ' ) 

VRITE(6,*)  'Enter  maximum  latitude  degree,  minute,  REAL  seconds:' 
READ  (5,*)  UTD,UTM,RUTS 

VRITE(6,*)  'Enter  maximum  longitude  degree,  minute,  REAL  seconds:' 
READ(5,*)  LOND, LONM, RLONS 
MAXUT  -  DECDEG ( UTD ,  UTM ,  RUTS ) 

MAXLON  .  DECDEG (LOND, LONM, RLONS) 

VRITE(6,*)  'Enter  minimum  latitude  degree,  minute,  REAL  seconds:' 
READ(5,*)  UTD,  UTM,  RUTS 

VRITE(6,*)  'Enter  minimum  longitude  degree,  minute,  REAL  seconds:' 
READ( 5 ,  *)  LOND, LONM, RLONS 
MINUT  -  DECDEG( UTD, UTM, RUTS) 

MINLON  -  DECDEG (LOND, LONM, RLONS) 

200  FORMAT(A) 


DO  I  -  1,1000000  IThere  are  at  most  1,000,000  points  in  file. 

READ(  LUSURV ,  500 ,  END- 100 )  UTD ,  UTM ,  RUTS ,  LOND ,  LONM , 

RLONS, DEPTH, ICODE 


DLAT  «  DECDEG(LATD, LATH, RUTS) 

DLON  =  DECDEG(LOND, LONM.RLONS) 

IF  (OUT  .GE.  MINUT  .AND.  DUT  .LE.  MAXUT  .AND. 

♦  DLON  .GE.  MINLON  .AND.  DLON  .LE.  MAXLON)  THEN 
! Write  out  the  info  and  "up"  the  counter. 

VRITE ( LUOUT ,  600 )  UTD ,  UTM ,  INT (RUTS*  100 ) ,  LOND ,  LONM , 

♦  INT(RLONS*lOO), DEPTH ,IC0DE 
K  •  K  +  1 

ELSE 

L  -  L  ♦  1 
ENDIF 

ENDDO 

100  CONTINUE 

VRITE(6,*)  'in  range  -  ',K,'  out  of  range  -  ',L 
500  F0RHAT(11X,I2,I2,F4.2,I3,I2.F4.2,A5,I3) 

600  F0RMAT(11X,I2,I2,I4,I3,I2,I4,A5,I3) 

END 


***************************** 

REAL  FUNCTION  DECDEG(D,M,S) 

C . Convert  latitude/longitude  degree, minute, second  to  REAL  decimal 

C . degrees. 

INTEGER  D,M 
REAL  S 

DECDEG  -  PLOAT(D)  ♦  (FLOAT(H)/60.0)  ♦  (S/3600.0) 


RETURN 

END 


ooooonoooooonoo 


PROGRAM  FINDLLI 

....Program  to  test  for  NOS  calibration  points  in  a  desired 
....lat/lon  area,  with  cartographic  code  126,  127,  129,  130,  710,  or  711. 
....Each  record  of  the  input  file  has  the  following  format: 

15  SURVEY  REGISTRY  NUMBER 

13  JULIAN  DAY 

13  CALENDAR  YEAR 

12  UTITUDE  DEGREE 

12  LATITUDE  MINUTE 

F4.2  LATITUDE  SECOND 

13  LONGITUDE  DEGREE 

12  LONGITUDE  MINUTE 

F4.2  LONGITUDE  SECOND 

15  DEPTH 

13  CARTOGRAPHIC  CODE 

A4  BLANK 

INTEGER  LATD,LATM,LOND,LONM, ICODE 

REAL  DEPTH , RLATS , RLONS , DLAT , DLON 

REAL  MAXLAT , MAXLON , MINLAT , MINLON 

CHARACTERS  INFILE,  OUTFILE 

DATA  LUOUT/26/ , LUSURV/11/ 

VRITE(6 , *)  ' ***********************************' 

VRITE(6 , *)  'This  program  searches  an  original  ' 

VRITE(6,*)  'NOS  file  for  points  in  a  particular' 

VRITE(6,*)  'latitude/longitude  area  ' 

VRITE(6 , *)  ' ***********************************' 

VRITE(6 , *)  'Enter  the  original  NOS  file:' 

ACCEPT  200,  INFILE 

OPEN ( LUSURV , FI LE- INFI LE , STATUS- ' OLD ' , READONLY ) 

VRITE(6,*)  'Enter  the  output  file  name:' 

ACCEPT  200,  OUTFILE 

OPEN( LUOUT , F1LE-0UTFILE , STATU5- ' UNKNOWN' ) 

VRITE(6, *) 

WRITE(6, *)  'ENTER  POSITIVE  MAXIMUM/ MINIMUM  VALUES' 

VRITE(6,*)  'Enter  maximum  latitude  degree,  minute,  REAL  seconds:' 
READ(5,*)  LATD.LATM, RLATS 

VRITE(6,*)  'Enter  maximum  longitude  degree,  minute,  REAL  seconds:' 
READ (5,*)  LOND.LONM, RLONS 

MAXLAT  -  DECDEG( LATD.LATM, RLATS) 

MAXLON  -  DECDEG( LOND.LONM, RLONS) 

URITE(6,*)  'Enter  minimum  latitude  degree,  minute,  REAL  seconds:' 

READ (5,*)  LATD.LATM, RLATS 

VRITE(6,*)  'Enter  minimum  longitude  degree,  minute,  REAL  seconds:' 
READ( 5 , *)  LOND.LONM, RLONS 
MINLAT  -  DECDEG( LATD.LATM, RLATS) 

MINLON  -  DECDEG( LOND.LONM, RLONS) 

200  FORMAT(A) 


DO  I  -  1,1000000  IThere  are  at  most  1,000,000  points  in  file. 


n  o 


READ( LUSURV , 500 , END- 100)  ISV , LATD , LATM , RLATS , LOND , LONM , 

+  RLONS, DEPTH, ICODE 

IF  (ICODE. EQ. 126  .OR.  ICODE. EQ. 127 

♦  .OR.  ICODE. EQ. 129  .OR.  ICODE. EQ. 130 

♦  .OR.  ICODE. EQ. 710  .OR.  ICODE. EQ. 711)  THEN 
DLAT  =  DECDEG  ( LATD,  LATM,  RUTS) 

DLON  -  DECDEG (LOND, LONM, RLONS) 

IF  (DLAT  .GE.  MINLAT  -AND.  DLAT  .LE.  MAXLAT  .AND. 

+  DLON  .GE.  MINLON  .AND.  DLON  .LE.  MAXLON)  THEN 

IVrite  out  the  info  and  "up”  the  counter. 

WRITE ( LUOUT , 600 )  I SV , LATD , LATM , INT ( RLATS* 100 ) , LOND , 

♦  LONM, INT(RLONS*100), DEPTH, ICODE 
K  .  K  ♦  1 

ELSE 

L  -  L  +  1 
END  IF 
ENDIF 

ENDDO 

100  CONTINUE 

VRITE(6,*)  'in  range  -  ',K,'  out  of  range  -  ',L 
500  FORMAT (15 , 6X, 12 , 12 , F4 . 2 , 13 , 12 , F4 . 2 , A5 , 13 ) 

600  FORMAT (15 ,6X,I2,I2,I4,I3,I2,I4,A5,I3) 

END 


REAL  FUNCTION  DECDEG(D,M,S) 

Convert  latitude/longitude  degree, minute, second  to  REAL  decimal 
degrees.  NO  SIGNS  ARE  NEEDED  ON  DEGREE. 

INTEGER  D,M 
REAL  S 

DECDEG  -  FLOAT(D)  *  (FLOAT(M)/60.0)  ♦  (S/3600.0) 

RETURN 

END 


n  n  n 


PROGRAM  LANDVATER 

....This  program  creates  a  tvo-class  image  (land/water)  with  one  channel 
....so  that  calibration  points  (or  errors  at  these  points)  can  be 
....  plot  ted . 

PARAMETER  (N-512)  INumber  of  bytes  per  block. 

BYTE  AIM(450Q) 

INTEGER  IMAGE(4500) 

INTEGER  M,P,Q,I,J,N3,N1,N2,Z 

CHARACTERS  TMINFIL£,OUTFILE 
CHARACTER* 132  COMMENT 

VRITE(6’,*)  '*  LAND/VATER  IMAGE  CREATION  *' 

WRITE (6 , *)  ' ***************************************' 

WRITE(6 ! * ) 

LUN1  =  0 

CALL  FILE_0PEN(LUN1 (TMINFILE) 

WRITE(6,*) 

WRITE(6,*)  'Enter  output  file:' 

READ(5 , 50)  OUTFILE 
50  FORMAT(A) 

0PEN(UNIT«15 , FILE-OUTFILE , STATUS- ' NEW' , 

♦  FORM-' UNFORMATTED' , ACCESS- ' DIRECT' .RECL-128) 

C . Read  header  of  input  file. 

READ( LUN1 , REC-1 )  NBIH , NBPR , IL , LL , IE , LE , NC , IDESC 

C . Write  header  of  the  output  file. 

WRITE( 15, REC-1 )  NBIH , NBPR , IL , LL, IE , LE , 1 f IDESC 

WRITE(6,*)  'What  comments  would  you  like  written  to  the' 

WRITE(6,*)  'output  file?  (Limit  to  132  characters.)' 

READ(5,200)  COMMENT 
WRITE(15,REC-2)  COMMENT 
200  FORMAT(A) 


NREC  -  3  !  Input  data  for  Line  1  channel  1  begins 

!  in  this  block  of  the  input  file. 

NREC3  -  3  !  Control  for  writing  to  the  correct 

!  position  of  the  output  file. 

NL  *  LL-IL+1  !  Total  number  of  lines. 

NE  -  LE-IE+1  !  Total  number  of  elements. 

MAXR  .  INT( (NBPR*NL*NC)/N+2)  !  Number  of  blocks  in  infile. 

MAXZ  -  INT(NBPR/N)  !  Number  of  blocks  per  line  per  channel. 

MAXREC  -  MAXR-(NC*MAXZ)+1  !  Block  MAXREC  is  the  :t*rt  of  last  line 

)  channel  1. 

DO  WHILE  (NREC  .LE.  MAXREC) 

C . Read  each  512-byte  block  of  the  input  file  and  storei,  it  ..  a  byte  array. 

C . All  the  information  of  one  line  of  input  data  (channe.  5)  is  read  here. 

DO  Z  -  0 , MAXZ- 1 
N1  -  (512*Z)*1 
N2  -  512*(Z*1 ) 

I F ( N2 .CT.NE)  N2  -  NE 


no  o  on 


NREC2  ■  NREC+Z+((NC-1)*MAXZ)  !Only  band  5  is  read  in. 

READ( LUN1 , REC-NREC2 )  (AIM(N3),  N3-N1.N2) 

END  DO 

C . Convert  bytes  to  integer*4  and  change  negatives  to  positives. 

DO  NCOL  -  1 ,NE 

IMAGE(NCOL)  -  AIM(NCOL) 

IF  (IMAGE(NCOL)  .LT.  0) 

IMAGE(NCOL)  -  IMAGE(NCOL)  ♦  256 
END  DO 

CALL  BIGD( IMAGE, AIM, NE) 

Converts  positives  bigger  than  128  tc  negatives  for  storage  as  bytes 
byte  array  bathy. 

DO  J  -  1 , NE 
•IF  (AIM(J)  .GE.  128) 

AIM(J)  *  AIM(J)  -  256 
END  DO 

Write  to  output  file  the  calculated  values. 

DO  Z  *  0, MAXZ-1 
N1  .  (512*Z)+1 
N2  -  512*(Z^1) 

IF(N2.GT.NE)  N2  «  NE 

VRITE(15,REC.NR£C3*Z)  (AIM(N3),  N3«N1,N2) 

END  DO 

NREC3  «  NREC3  ♦  MAXZ  !Increment  NREC3  to  skip  to  first  block 

!of  next  line. 

Increment  NREC  so  that  the  program  reads  the  gray  levels  for  the  next 
scan  line. 

NREC  -  NREC  ♦  (NC*MAXZ) 

END  DO 


VRITE(6,*)  '********************' 

VRITE(6,*)  '*  *' 

VRITE(6,*)  '*  COMPLETED  *' 

WRITE(6,*)  '*  *' 

VRITE(6,*)  '********************' 

WRITE(6,*) 

END 

C* a********************** *********************************************** 

SUBROUTINE  BIGD( IMAGE, AIM, NE) 

C . This  subroutine  calculates  the  value  for  each  pixel. 

INTEGER  IMAGE ( 4500 ),NE 

BYTE  AIH(4500) 

DO  400  J  .  1 ,NE 

IF  ((IHAGEfJ)  -  10)  .GT.  0)  THEN 


AIM ( J )  -  250  1  Land 

ELSE 

AIM(J)  .  255  ! Water 

END  IF 
400  CONTINUE 
RETURN 
END 


0** ********** a**********************************'******** *★***★★*★★*★**★★ 

SUBROUTINE  FILE_0PEN(LUN1 .THINFILE) 

INTEGER  LUN1 

CHARACTER*40  TMINFILE 

VRITE(6,*)  'Enter  TM  input  file:' 

VRITE(6,*)  '(must  have  5  channels  since  value  10  from' 

URITE(6 , *)  'channel  5  is  used  as  a  land/vater  threshold)' 
READ(5,100)  TMINFILE 
LUN1  -  10 

0PEN(UNIT*LUN1 , FILE-TMINFILE, STATUS- ' OLD' , I0STAT-I0S1 , 

♦  READONLY, FORM-' UNFORMATTED' .ACCESS- ' DIRECT' .RECL-128) 

100  FORMAT(A) 

RETURN 

END 


PROGRAM  LESIEVE 

C . This  program  performs  a  line/element  sieve  on  an  NOS  data  file. 

INTEGER  LATD , LATH , LGD , LGM 

INTEG£R*4  TMSCAN, TMELEM, SPOTSCAN , SPOTELEM 

DOUBLE  PRECISION  EAS.NOR 

REAL  DEPTH,  RUTS,  RLGS 

CHARACTER* 132  HEADING 

CHARACTER*40  INFILE,  OUTFILE 

VRITE(6 , *) 

VRITE(6,*) 

WRITE ( 6 , *)  ' *★**★★★***★**★*★*★★*★★★**★*★**★******* 1 
VRITE(6,*)  'This  program  performs  a  line/element  ' 

VRITE(6,*)  'sieve  on  an  NOS  data  file.  ' 

VKITE( 6,*)  ' ************************************** ' 

WRITE(6 ,*) 

WRITE(6,*)  'Enter  NOS  input  file  name:' 

ACCEPT  20,  INFILE 

VRITE(6,*)  'Enter  output  file  name:' 

ACCEPT  20,  OUTFILE 
20  FORMAT(A) 

0PEN( 1 1 , FILE- INFILE , STATUS- ' OLD' ) 

0PEN( 12 , FILE-OUTFILE, STATUS-'NEV' ) 

READ (11, 500)  HEADING 
VRITE( 12,500)  HEADING 

VRITE( 6 ,  *)  'Please  enter  TM  Initial  and  Last  Line:' 

ACCEPT  * , I LT , LLT 

VRITE(6,*)  'Please  enter  TM  Initial  and  Last  Element:' 

ACCEFr  *,IET,LET 

VRITE(6,*)  'Please  enter  SPOT  Initial  and  Last  Line:' 
VRITE(6,*)  '(if  using  junk  coefut  files,  enter  1  1)' 

ACCEPT  *,ILS,LLS 

VRITE(6, *)  'Please  enter  SPOT  Initial  and  Ust  Element:' 
VRITE(6, *)  '(if  using  junk  coefut  files,  enter  1  1)' 

ACCEPT  * , IES, LES 

DO  1-1,336000 

READ(  11 , 1000, END- 100)  UTD, UTM , RUTS , LGD, LGM , RLGS , 

♦  EAS.NOR, DEPTH, TMELEM.TMSCAN, 

♦  SPOTELEM, SPOTSCAN 


IF  ( ( (THELEM.GE. IET) .AND. (TMELEM . LE. LET) . AND. 
(TMSCAN. GE. ILT). AND. (TMSCAN. LE. LLT)). OR. 

(( SPOTELEM. GE. IES). AND. (SPOTELEM. LE. LES) .AND. 

( SPOTSCAN .GE. ILS) .AND. ( SFOTSCAN . LE . LLS > ) )  THEN 
VRITE(  12 , 1000)  UTD, UTM, RUTS, LGD, LGM, RLGS, 

EAS , NOR .DEPTH , TMELEM , TMSCAN , 
SPOTELEM, SPOTSCAN 

END  IF 


END  DO 


100  CON*! 


500  FORMAT (A1 32) 

1000  FORMAT ( IX, 12 , 12 , F5 . 2 , IX, 13 , 12 , F5. 2 , 2X, F10.0, 2X, F10.0, 2X, 
+  F7.1,2X,I6,2X,I6,2X,I6,2X,I6) 

END 


PROGRAM  LINF4 

C...This  program  does  a  paredes  &  spero  model  fit  to  the  data 
C...It  quizzes  the  user  for  the  number  of  bands  ana  bands  to  use,  and 
C... bases  the  regression  on  L  infinity  slices. 

C...It  reads  in  imagery  data  from  the  nev  DST  file,  asking  the  user  for 
C. . . the  file  name . 

INCLUDE  'USERSDISK: [BATHY. SOURCE] BATH. INCLUDE' 

CALL  HLIMIT(20000) 

CALL  HB00K2(4, '  ACTUAL  DEPTH  VS.  CALCULATED  DEPTHS', 

+  50,0. ,50. ,35,0. ,35. ,16) 

CALL  HB00K2( 10, '  ACT. -CALC.  DEPTH  VS.  ACT.  DEPTHS', 

+  40,0. ,20. ,40,-10. ,10. ,256) 

CALL  HB00K1 ( 15 , '  PER  CENT  ERROR,  CALIB .  PTS.$', 

+  50,0. ,100. ,256) 

CALL  HBOOK1(20, '  RESIDUALS,  ACT.  DEPTH  -  CALC.  DEPTHS', 

+  60,-15. ,15. ,256) 

CALL  HCOPY (15,31,'  PER  CENT  ERROR,  TEST  PTS.S') 

CALL  HC0PY(4 , 32 , '  TEST  DEPTHS;  ACT.  DEPTH  VS.  CALC.  DEPTHS', 

+  50,0. ,50. ,35,0. ,35. .16) 

CALL  HCOPY( 10,33,'  TEST  DEPTHS;  ACT. -CALC.  VS.  ACT.  $', 

+  40,0. ,20. ,40,-10. ,10. ,16) 

CALL  HCOPY ( 20, 34 , '  TEST  DEPTH  RESIDUALS,  ACT.  -  CALC.S', 

4-  60,-15.  ,15.  ,256) 

CALL  HBLACK(O) 

CALL  HTITLE( '  USA,  USM,  NORDA.  Satellite  BathymetryS' ) 

CALL  Main 
CALL  EXIT 
END 


SUBROUTINE  MAIN 

C. .. Subroutine  to  do  Multiple  Linear  Regression  driving 

CHARACTER*40  DSTFILE ,  PSFILE 
LOGICAL  FOUND 

INCLUDE  'USERSDISK: l BATHY. SOURCE] BATH. INCLUDE' 

C... Array  IMAGE  contains  the  following  data 
C  IMAGE(N, 1 )  =  column  of  Nth  calibration  point 

C  ,2)  =  row  of  Nth  calibration  point 

C  3  =  depth  *  10  in  meters 

C  4  1st  band  gray  level 

C  5  =  2nd  band  gray  level 

C  6  3rd  band  gray  level 

C  7  =  4th  band  gray  level  (if  tm  imagery  used) 

C  8  5th  band  gray  level  (if  tm  imagery  used) 

DIMENSION  X(4000),  Y(4000),  SIGMAY(4000) ,  M(10),  YFIT(4000), 
+  A( 10) ,  SIGMAA(IO),  R( 10) ,  RSIG(IO) 

C... Define  error  mode  for  subroutine  REGRESS 
DATA  MODE/O/ 

DATA  DMIN/O./.DMAX/O./ 

C...0pen  needed  files 
VRITE(6 , 3) 


3  FORMAT( 'OEnter  name  of  DST  file  to  use.') 

READ(5,4)  DSTFILE 

4  FORMAT(A) 

PRINT  7 

7  F0RMAT('  Enter  name  of  output  file.') 

ACCEPT  4,  PSFILE 

OPEN( UNIT=7 , FILE=DSTFILE , STATUS= ' OLD' , READONLY)  'data  file 

OPEN(UNIT=2 , FILE=PSFILE, STATUS= ' NEV' )  lhardcopy  output  file 

PRINT  110,  DSTFILE,  PSFILE 
VRITE(2, 110)  DSTFILE,  PSFILE 
110  F0RMAT(1H1,'  Input  filename  =  ' , A ,  /  , 

+  'OOutput  bathy  filename  =  ' ,A) 


C...Go  get  some  needed  information  from  the  user 
CALL  GETINFO 

C...Get  some  more  needed  information  from  the  user 
CALL  LINE_ELEM 

IF  (IMTYPE  .EQ.  'T'  .OR.  IMTYPE  .EQ.  't')  THEN 
IE  =  IET 
LE  =  LET 
IL  =  ILT 
LL  =  LLT 

ELSE  IF  (IMTYPE  .EQ.  'S'  .OR.  IMTYPE  .EQ.  's')  THEN 
IE  =  IES 
LE  =  LES 
IL  -  ILS 
LL  =  LLS 
END  IF 

WRITE( 2 , 20)  IE , LE 
VRITE(2 , 21 )  IL, LL 

C. . .Go  read  in  calibration  data  and  gray  levels  from  disk 
IF  (IMTYPE  .EQ.  'T'  .OR.  IMTYPE  .EQ.  't')  THEN 

CALL  DATATM( 1 ,NPTS)  !1  indicates  data  to  be  used  in  regression 
ELSE  IF  (IMTYPE  .EQ.  'S'  .OR.  IMTYPE  .EQ.  's')  THEN 

CALL  DATASPOT(l ,NPTS)  !1  indicates  data  to  be  used  in  regression 
END  IF 

C. . .Gather  calibration  and  corresponding  data  points  into  one  array 
NE  =  0 

DO  NK  =  1 , NPTS 
FOUND  =  .FALSE. 

CALL  FINDIT( FOUND, NK) 

IF  (FOUND)  THEN 
NE  =  NE  +  1 

C...Set  up  arrays  for  mulitple  linear  regression 
X(NE)  =  NE 
DO  K  =  l.NTERMS 

XT(NE,K)  =  ALOG( FL0AT(MAX( IMAGE (NK, K+3 )-LINF(K) , 1 ) ) ) 

END  DO 

Y(NE)  =  FLOAT ( IMAGE(NK, 3 ) ) /10 . 

ELSE 

NTHROW  =  NTHROV  +  1 


END  DO 


WRITE(6, 555)  NF..NTHROV 
WRITE(2,555)  NE.NTHROV 
IF(NE  .LT.  NTERMS+2 )  THEN 
WRITE( 6 , 556 ) 

WRITE(2 , 556) 

STOP 
END  IF 


C...Go  call  the  mulitple  linear  regressioi  stuff 

CALL  REGRESS( X , Y , SIGMAY , NE , NTERMS ,  M , 0 , YFIT ,  AO ,  A , SIGMAQ , SIGMAA , 
+  R,RMUL,CHISQR, FTEST) 


C...Loop  over  calibration  depths.  Calculate  residuals. 
DO  N  *  1,  NE 
CALCZ  =  YFIT(N) 

Z  =  Y(N) 

PCE  =  ABS(((CALCZ-Z)/Z)*100. ) 

CALL  HFILL( 15 , PCE , 0. ,  1 . ) 

CALL  HFILL( 20, Z-CALCZ, 0 . , 1 .  ) 

CALL  HFILL(10, Z, Z-CALCZ, 1.  ) 

CALL  HFILL(4 , CALCZ , Z,  1 .  ) 

END  DO 


C...End  of  Job  Routine 
C... Write  fit  info  to  screen 


WRITE (6, 200) 
WRITE (6, 205) 
WRITE(6,2iO) 
WRITE(6,215) 
WRITE(6,218) 
WRITE(6,220) 
WRITE(6,225) 
WRITE(6,230) 
C. . .Write  fit  info 
WRITE(2 ,200) 
WRITE(2,205) 
WRITE( 2 ,210) 
WRITE ( 2 ,215) 
WRITE(2 ,218) 
WRITE(2,220) 
WRITE(2 ,225) 
WRITE( 2 ,230) 


AO.SIGMAO 

(IBAND(K) , A(K) , SIGMAA(K) ,  K=1 , NTERMS) 

(IBAND(K) ,R(K) ,  K=l, NTERMS) 

RMUL 

CHISQR,  FTEST 
to  output  file 


AO.SIGMAO 

( IBAND(K) , A(K) , SIGMAA(K) ,  K.  =  1, NTERMS) 

(IBAND(K) ,R(K) ,  K  =  1, NTERMS) 

RMUL 

CHISQR,  FTEST 


C..  Let  the  user  know  about  what's  going  on. 
WRITE(6 , 240) 


C. . .Loop  to  check  resids  of  non  calibration  points 

IF  (IMTYPE  .EQ.  'T'  .OR.  IMTYPE  .EQ.  't')  THEN 
CALL  DATATM(2,NPTS)  !get  test  calib.  pts. 

ELSE  IF  (IMTYPE  .EQ.  'S'  .OR.  IM  ,'E  .EQ.  's')  THEN 
CALL  DATASP0T(2 , NPTS)  !get  test  calib.  pts. 

END  IF 

DO  N  =  1,  NPTS 

FOUND  =  .FALSE. 

CD  =  FLOAT(IMAGE(N, 3) )/10. 

CALL  FINDIT(FOUND,N) 

IF  (FOUND)  THEN 
DO  MM  =  1, NTERMS 


RSIG(MM)  =  FLOAT(MAX(IMAGE(N, MM+3)-LINF(MM) , 1)) 

END  DO 
ZT  =  AO 

DO  MM  =1 , NTERMS 

ZT  =  ZT  +  A(MM)*ALOG(RSIG(MM) ) 

END  DO 

PCE  =  ABS( ( (ZT-CD) /CD) *100. ) 

CALL  HFILL(31,PCE,0. ,1. ) 

CALL  HFILL(32 , ZT , CD, 1 . ) 

CALL  HFILL(33,CD,CD-ZT, 1 . ) 

CALL  HFILL(34,CD-ZT,0. ,1. ) 

END  IF 
F.ND  DO 

C...Let  user  know  what  is  happening 
VRITF.(6 , 260) 

C...fit  Gaussian  distribution  to  residuals  and  then  print  the  histograms 
CALL  HFITGA(20, C3 , AVC, SDC, CHI2C , 12 , SIGC)  Icalibration  points 
CALL  HFITGA(34 ,C3 , AVT, SDT, CHI2T , 12 , SIGT)  !test  points 
CALL  HISTDO 

C....Go  print  summary  information  on  fit 
VRITE(6 , 265) 

CALL  SUMMARY  (AO ,  A ,  SIGMAO ,  SIGMAA ,  R ,  RM'JL  ) 

C...Lets  get  out  of  here.  Tell  user  we're  done. 

VRITE(6, 270) 

RETURN 

C... FORMAT  statements 

5  F0RMAT(1X,I10, '  Calibration  points  read  in.',/, 

+  IX, 110,'  Calibration  points  outside  of  image.') 

10  F0RMAT( 31X, F7 . 3 , 2X , F6 . 1 , 2X , F6 . 1 ) 

20  FORMAT ( '  IE  ',14,'  LE  ',14) 

21  F0RMAT( '  IL  ',14,'  LL  ',14) 

90  F0RMAT( IX, 13 , 2X, 13 , 2X, F4. 1 ) 

100  F0RMAT(I3 , 2X, 13, F5 . 1) 

200  F0RMAT(///'0  -  RESULTS  OF  MULTIPLE  LINEAR' 

+  '  REGRESSION  - '//) 

205  F0RMAT( 'OFitted  Parameter  Values') 

210  F0RMAT( '  AO  =  'F8.3,'  +/-  ',F8.4) 

215  FORMAT( '  A', II,'  =  ',F8.3,'  +/-  ',F8.4) 

218  F0RMAT( ' OLinear  Correlation  Coefficients') 

220  F0RMAT( '  R',I1,'  =  ',F8.3) 

225  F0RMAT( '  Multiple  Correlation  Coefficient,  RM  =  ',F8.3) 

230  F0RMAT( ' OCHISQ  =  ',F8.3,'  FTEST  =',F10.3) 

240  F0RMAT('0Nov  gathering  statistics  using  test  points...') 

250  F0RMAT( ' ODuplicate  calibration  point.... NR,  NC,  OLD  DEPTH,  NEV' , 

+  2I5.2F8.1) 

260  F0RMAT('0Nov  Playing:  Histograms  and  Scatter  Plots!') 

265  F0RMAT( ' OPrint ing  out  summary.') 

270  F0RHAT('0Job  completed.  I''m  oulta  here.') 

555  FORMAT(1HO,HO, '  Calibration  points  to  be  used  in  regression.', 

+  /,1H0,I10,'  Calibration  points  out  of  range.') 

556  FORMAT ( 1H0, '  INSUFFICIENT  DATA  FOR  REGRESSION!  STOPPING!!') 
2000  FORMAT(Al) 

END 


Q  ic  ★  *  *  ★★★★★★★★★★★★★★  *  ★★  'k  *★★★★★★★★★★★★*★★★★★★★*★*★*  J  ;★*★★★★*★*  * 


SUBROUTINE  GETINFO 

INCLUDE  'USERSDISK: [BATHY. SOURCE J BATH. INCLUDE' 

C. . .Read  the  header  records  from  DST  file. 

R£AD( 7,5)  IMAGETYPE , CALTYPE , IMAGEFI LEI , IMAGEFILE2 
READ( 7,6)  IET, LET , ILT, LLT, IES, LES, ILS , LLS 
READ( 7,7)  INFO 

5  FORMAT (4A) 

6  FORMAT(8(3X, 14) ) 

7  FORMAT (A1 30) 

URITE(6 , 10) 

10  FORMAT ( '  SATELLITE  BATHYMETRY!') 


URITE(6 , 20) 

20  FORMAT  ( '  Liiter"T"  for  TM  imagery',/, 
+  '  Enter' 'S''  for  SPOT  imagery') 

ACCEPT  25, IMTYPE 
25  FORMAT(A) 


WRITE(6 , 30) 

30  FORMAT( 'OEnter  number  of  bands  to  use  in  fit.') 
READ(5,*)  NTERMS 
URITE(6,35) 

35  FORMAT ( 'OEnter  band(s)  to  use  in  fit:') 

READ(5 , *)  (IBAND(N),N=1, NTERMS) 

URITE(6 , 40)  NTERMS 

40  FORMAT( 'OEnter  the  LINF''s  for  the  ',11,'  band(s):') 
READ(5,*)  (LINF(N),N=1, NTERMS) 

C. . .Go  write  out  info  to  output  file 
CALL  INFOUT 


RETURN 

END 


C************************************************************************ 

SUBROUTINE  INFOUT 

INCLUDE  'USERSDISK: (BATHY. SOURCE) BATH. INCLUDE' 

WRITE( 2 , 10) 

10  FORMAT { '  SATELLITE  BATHYMETRY') 

WRITE(2 , 12 )  IMAGETYPE,  CALTYPE,  IMAGEFILE1 , IMAGEFILE2 
12  FORMAT( 'Olmagery  from  the  ',A,'  sensor.  Calibration  from  ',A,/, 

+  '  Image  names  are  ',A,A) 

VRITE( 2,14)  INFO 

14  FORMAT( 'OComments  entered  on  this  DST  file  are:',/,lH  ,A) 

VRITE(2,*) 

VRITE(2,*)  '  Regression  done  based  on  Linf  slices.' 

VRITE( 2 , *) 


URITE(2,20)  NTERMS,  (IBAND(N)  ,  N=1  ,NTERMS)  ,  DMIN,  DMAX 
20  FORMAT( 'OUsing' ,13, '  bands  of  imagery',/, 

+  '  Band(s)  ' , <NTERMS>( IX, 12 ) , / , 

+  '  Minimum  calibration  depth  is',F4.0,/, 

+  '  Maximum  calibration  depth  is',F4.0) 

VRITE(2,25) 

25  F0RMAT('0The  L  infinities  are...') 

DO  N  =  1, NTERMS 

WRITE(2 , 30)  IBAND(N) ,  LINF(N) 

30  F0RMAT( '  LINF(',I1,')  =  ',13) 

END  DO 
RETURN 
END 


SUBROUTINE  DATATM( LCALL , NP ) 

C...This  subroutine  reads  in  TM  imagery  data  from  the  dst  file  and 
C  stores  it  in  array  IMAGE. 

INCLUDE  'USERSDISK: [ BATH Y. SOURCE] BATH. INCLUDE' 

DIMENSION  INTENSE(5) 

NP  =  0 

C... Rewind  file  and  skip  header  records  ot  DST  file. 

REVIND( 7 ) 

READ( 7 , *) 

READ(7 ,*) 

READ( 7 , *) 

C. . .Read  the  first  data  record 

READ( 7 , 10 )  LAT , LON , NEAST , NORTH , ID , NC , NR , 

+  (INTENSE(N) ,N=1 , 5) 

10  FORMAT (518 ,714) 

DO  VHILE  (NEAST  .NE.  0) 

IF  (LCALL  .EQ.  1)  THEN 

IF  (INTENSE(l)  .GT.  0)  THEN 
NP  =  NP  +  1 
IMAGE(NP, 1)  =  NC 
IMAGE(NP, 2)  =  NR 
IMAGE(NP, 3)  =  ID 
DO  J  =  1, NTERMS 

IMAGE(NP, J+3)  =  INTENSE(IBAND( J) ) 

ENDDO 

IMAGE(NP,8)  =  INTF,NSE(5)  !Band  5  is  used  as  a  land/vater  cut. 
END  IF 

C...Skip  a  record  to  use  as  a  test  point 

R£AD(  7,10)  LAT ,  LON ,  NEAST ,  NORTH ,  ID,  NC ,  NP. , 

♦  (INTENSE(N) ,N=1 ,5) 

READ( 7 , 10)  LAT, LON, NEAST, NORTH, I D,NC, NR, 

+  ( INTENSE(N) , N=1 , 5 ) 

ELSE  IF  (LCALL  .EQ.  2)  THEN 
C... First  record  used  as  a  calib.  point;  skip  it. 

READ( 7,10)  LAT , LON , NEAST , NORTH , ID , NC , NR , 
t- _ ( INTENSE(N)  ,N=1 . 5) _ 


IF  (INTENSE(l)  .GT.  0)  THEN 
NP  =  NP  +  1 
IMAGE(NP , 1 )  =  NC 
IMAGE(NP , 2 )  =  NR 
IMAGE(NP,3)  =  ID 
DO  J  =  l.NTERMS 

IMAGE(NP, J+3)  =  INTENSE( IBAND( J ) ) 

ENDDO 

IMAGE(NP,8)  =  INTENSE(5)  !Band  5  is  used  as  a  land/water  cut. 
END  IF 

C...Skip  next  next  record  as  it  was  used  as  a  calib.  point,  too. 

READ ( 7 , 1 0 )  LAT , LON , NE A  ST , NORTH , I D , NC , NR , 

+  (INTENSE(N) ,N=1 ,5) 

END  IF 
END  DO 

RETURN 

END 
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SUBROUTINE  DATASPOT ( LCALL , NP ) 

C...This  subroutine  reads  in  SPOT  imagery  data  from  the  dst  file  and 
C  stores  it  in  array  IMAGE. 

INCLUDE  'USER$DISK:[BATHY. SOURCE] BATH. INCLUDE' 

DIMENSION  INTENSE(5) 

NP  =  0 


C... Rewind  file  and  skip  header  records  of  DST  file. 

REUIND( 7 ) 

READ(7,*) 

READ(7 , *) 

READ(7 , *) 

C...Read  the  first  data  record 

READ( 7,10)  LAT , LON , NEAST , NORTH , ID , NC , NR , 

-  (INTENSE(N) ,N=1 , 3) 

10  FORMAT(5I8, 28X,5I4)  ! (The  "28X"  skips  the  TM  values.) 


DO  WHILE  (NEAST  .NE.  0) 

IF  (LCALL  .EQ.  1)  THEN 

IF  (INTENSE(l)  .GT.  0)  THEN 
NP  =  NP  +  1 
IMAGE(NP.l)  =  NC 
IMAGE(NP, 2 )  =  NR 
IMAGE(NP, 3)  =  ID 
DO  J  =  l.NTERMS 

IMAGE(NP, J+3)  =  INTENSE(IBAND( J) ) 

ENDDO 
END  IF 

C...Skip  a  record  to  use  as  a  test  point 

READ( 7,10)  LAT, LON, NEAST, NORTH, I D,NC, NR, 
+  ( INTENSE(N) ,N=1 , 3) 

READ( 7 , 10 )  LAT , LON ,  NEAST , NORTH ,  ID ,  NC , NR , 
+  ( INTENSE(N) ,N=1 , 3) 


ELSE 


IF  (LCALL  .EQ.  2)  THEN 


C... First  record  used  as  a  calib.  point;  skip  it. 

READ( 7,10)  LAT , LON , NEAST , NORTH , I D , NC , NR , 

+  ( lNTENSE(N) , N=1 , 3) 

IF  (INTENSE(l)  .GT.  0  )'  THEN 
NP  =  NP  +  1 
IMAGE(NP.l)  =  NC 
IMAGE(NP , 2 )  =  NR 
IMAGE(NP , 3 )  =  ID 
DO  J  =  l.NTERMS 

IMAGE(NP, J+3)  =  INTENSE ( I BAND(J)) 

ENDDO 
END  IF 

C...Skip  next  next  record  as  it  was  used  as  a  calib.  point,  too. 
READ( 7,10)  LAT , LON, NEAST, NORTH, I D,NC, NR, 

+  (INTENSE(N) ,N=1 , 3) , 

END  IF 
END  DO 
RETURN 
END 


SUBROUTINE  REGRESS( X , Y , SIGMAY , NPTS , NTERMS , M , MODE , YFIT , AO , A , 

+  SIGMAO , SIGMAA , R , RMUL , CHI SQR , FTEST ) 

COMMON  /DATASET/  XT(4000, 7) , IMAGE(4000, 13) 

DIMENSION  X(4000) , Y(4000) , SIGMAY (4000) , M( 10) , YFIT (4000) , A(10) , 

+  SIGMAA(10),R(10) 

DIMENSION  WEIGHT(4000),  XMEAN(IO),  SIGMAX(IO),  ARRAY(10,10) 
DIMENSION  INDEX(IO)  ! scratch  space  for  matrix  inversion  routine 

C. . .INITIALIZE  SUMS  AND  ARRAYS 
11  SUM  =  0. 

YMEAN  =  0. 

SIGMA  =  0. 

CHISQ  =  0. 

RMUL  =  0. 

DO  17  I  =  1,  NPTS 

17  YFIT(I)  =  0. 

21  DO  28  J  =  1,  NTERMS 

XMEAN(J)  =  0. 

SIGMAX(J)  =  0. 

DO  28  K=1 ,  NTERMS 
28  ARRAY( J ,K)  =  0. 

C. . .ACCUMULATE  VEIGHTS 

30  DO  50  1=1, NPTS 

31  IF  (MODE)  32,37,39 

32  IF  (Y(I) )  35,  37,  33 

33  WEIGHT(I)  =  l./(-Y(I)) 

GO  TO  41 

35  VEIGHT(I)  =  1./  (-Y(I)) 

GO  TO  41 

37  VEIGHT(I)  =  1. 

GO  TO  41 

39  WEIGHT(I)  =  l./SIGMAY(I)**2 
41  SUM  =  SUM  +  WEIGHT(I) 

YMEAN  =  YMEAN  +  UEIGHT( I )*Y (I ) 

DO  44  J  =  1,  NTERMS 

44  XMEAN(J)  =  XMEAN(J)  +  UEIGHT(I )*FCTN(X , I , J , M) 


50  CONTINUE 

51  YMEAN  =  YMEAN/SUM 
DO  53  J=1 ,NTERHS 

53  XMEAN(J)  =  XMEAN( J) /SUM 
FNPTS  =  NPTS 
WMEAN  =  SUM  /  FNPTS 
DO  57  1=1,  NPTS 

57  WEIGHT  (I)  =  WEIGHT  (I)  /WMEAN 

C  ACCUMULATE  MATRICES  R  AND  ARRAY 
61  DO  67  1=1,  NPTS 

SIGMA  =  SIGMA  +  WEIGHT(I)*(Y(I)  -  YMEAN)**2 
DO  67  J=l,  NTERMS 

SIGMAX(J)  =  SIGMAX(J)  +  WEIGHT  ( I )*( FCTN(X, I , J , M)  -  XMEAN(J))**2 
R(J)  =  R( J )  +  WEIGHT(I )*(FCTN(X, I . J , M) -XMEAN( J ) )*( Y( I ) -YMEAN) 

DO  67  K.1,  J 

67  ARRAY(J,K)  =  ARRAY (J , K)+WEIGHT( I )*( FCTN(X, I , J , M)-XMEAN( J) )* 

1  (FCTN(X, I ,K, M) -XMEAN(K) ) 

71  FREE1  =  NPTS  -  1 

72  SIGMA  =  SQRT( SIGMA/FREE1 ) 

DO  78  J  =  1, NTERMS 

74  SIGMAX(J)  =  SQRT(SIGMAX(J)/FREE1) 

R( J )  =  R(J)/(FREE1*SIGMAX(J)*SIGMA) 

DO  78  K  =  1,J 

ARRAY(J,K)  =  ARRAY(J.K)  /  (FREE1*SIGMAX( J)*SIGMAX(K) ) 

78  ARRAY(K, J)  =  ARRAY( J ,K) 

C... INVERT  SYMMETRIC  MATRIX 

81  CALL  MATIN1(ARRAY, 10, NTERMS, MDIM.O, INDEX, NERROR,DET) 

IF  (DET)  101,  91,  101 
91  AO  =  0. 

SIGMAO  =0. 

RMUL  =  0. 

CHISQR  =  0. 

FTEST  =  0. 

GO  TO  150 

C. . .CALCULATE  COEFFICIENTS,  FIT,  AND  CHI  SQUARE 

101  AO  =  YMEAN 

102  DO  108  J.l,  NTERMS 
DO  104  K=1 ,  NTERMS 

104  A( J )  =  A( J )  +  R(K)  *  ARRAY( J ,K) 

105  A( J )  =  A( J)  *  SIGMA/SIGMAX( J ) 

106  AO  =  AO  -  A( J)*XMEAN(J) 

107  DO  108  1=1,  NPTS 

108  YFIT(I)  =  YFIT(I)  +  A( J)*FCTN(X, I , J ,M) 

111  DO  113  1=1,  NPTS 

YFIT(I)  =  YFIT(I)  +  AO 

113  CHISQ  =  CHISQ  +  WEIGHT( I )*( Y( I )  -  YFIT(I))**2 
FREEN  =  NPTS  -  NTERMS  -  1 
115  CHISQR  =  CHISQ*WMEAN/FREEN 

C  CALCULATE  UNCERTAINTIES 

121  IF  (MODE)  122,  124,  122 

122  VARNCE  =  1 . /WMEAN 
GO  TO  131 

124  VARNCE  =  CHISQR 

131  DO  133  J=l,  NTERMS 

132  SIGMAA(J)  =  ARRAY( J , J )  *  VARNCE  /  (FREE1*S1GMAG(J)**2) 

133  RMUL  =  RMUL  +  A(J)  *  R(J)  *  SIGMAX( J)/SIGMA 


FREEJ  =  NTERMS 

135  FTEST  =  (RMUL/FREEJ)  /  ( ( 1 . -RMUL) /FREEN) 

136  RMUL  =  SORT  (RMUL) 

141  SIGMAO  =  VARNCE  /  FNPTS 
DO  145  J= 1 ,  NTERMS 
DO  145  K= 1 ,  NTERMS 

145  SIGMAO  =  SIGMAO  ♦  VARNCF.*XMEAN(  J ) *XMEAN(K)*ARRAY(  J  , K)  / 
1  ( FREE1*SIGMAX( J ) *SIGMAX(K) ) 

146  SIGMAO  =  SQRT  (SIGMAO) 

150  RETURN 

END 


FUNCTION  FCTN( X , I , J ,M) 

COMMON  /DATASET/  XT(4000 , 7 ) , IMAGE(4000 , 13) 
DIMENSION  X(l),  M ( 1 ) 

IF  (J  .LE.  4)  THEN 
FCTN=XT( I , J ) 

ELSE 

URITE(6, 10)  J 

10  F0RMAT('0! !! SCREW  UP  SOMEWHERE!!!',/, 

+  'In  FCTN.  J  =' ,13, '  Check  NTERMS .' ) 
WRITE( 2 , 10)  J 
STOP 
END  IF 
RETURN 
END 


C******************** *************** ************************************* 

SUBROUTINE  SUMMARY( AO , A , SIGMAO , SIGMAA , R , RMUL) 

C...This  subroutine  prints  our  a  3  line  summary  to  the  analysis  summary  file 
C  according  to  the  folloving  format 


C 

record  1  contents 

data  type 

1st  byte 

#  bytes 

date 

cnar*9 

i 

9 

r 

time 

char*8 

10 

8 

C 

calibration  type 

char*4 

18 

4 

c 

image  file  name  1 

char*40 

22 

40 

C 

image  type  1 

char*4 

62 

4 

C 

initial  element 

integsr*4 

66 

4 

c 

last  element 

integer*4 

70 

4 

c 

initial  line 

integer*4 

74 

4 

c 

last  line 

integer*4 

78 

4 

c 

image  file  name  2 

char*40 

82 

40 

c 

image  type  2 

char*4 

122 

4 

c 

initial  element 

integer*4 

126 

4 

c 

last  element 

integer*4 

130 

4 

c 

initial  line 

integer*4 

134 

4 

c 

last  line 

integer*4 

138 

4 

c 

bands  used 

F8.0 

142 

8 

c 

Linf  (1-7) 

7(F/.2) 

150 

49 

c 

dmin 

F7.2 

199 

7 

c 

dmax 

F7.2 

206 

7 

c 

(A-A7) 

8(F7 .2) 

213 

56 

c 

(EA-EA7) 

8( F7 . 2) 

269 

56 

c 

r's(l-7) 

F7.2 

325 

7 

c 

rmul 

F7.2 

332 

't 

/ 

c 

calib  mean 

F7.2 

339 

7 

7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 

INCLUDE  'USERSDISK: ( BATHY . SOURCE )BATH . INCLUDE' 

CHARACTER*9  ADATE 
CHARACTER*8  ATIME,  BLANK 
DATA  BLANK/'  '/ 

DIMENSION  A( 10) , SIGMAA( 10),R(10) 

REAL*4  KREC(50),LREC(50) 

C...Open  the  file  for  appending 

0PEN( UNIT=15 , FILE= ' DJA3 : [ THFAY . DSTRUNS ] SUMMARY . DBAS ' , 

+  STATUS= ' OLD' ,ACCESS=' APPEND' ) 

OPEN(UNIT=16 , FILE= ' DJA3 : [THFAY . DSTRUNS ] SUMMARY .LIS', 

•*  STATUS='OLD‘  , ACCESS= ' APPEND'  ) 

C. . .get  date  and  time 
CALL  DATE (ADATE) 

CALL  TIME(ATIME) 

C...Set  "bands  used"  word 
DO  N  =  O.NTERMS-l 

KREC(l)  =  KREC(l)  +  IBAND(N+1 )*( 10**N) 

END  DO 

C.. .Store  the  L  infinities 
DO  N  -  1,7 

KREC( 1+N)  -  LINF(V) 

END  DO 

C... Store  min.  and  max.  depth  allowed 
KREC(9)  =  DMIN 
KREC(IO)  =  DMAX 

C...Save  the  fitted  constants  and  their  errors 
DO  N  =  l.NTERMS 
KREC(11+N)  =  A(N) 

KREC( 19+N)  =  SIGMAA(N) 

END  DO 

KREC(ll)  =  AO 
KREC( 19)  =  SIGMAO 


C  calib  rms  "  346 
C  cal  fitted  mean  "  353 
C  ecal  cit  mean  "  360 
C  cal  fitted  sigma  "  367 
C  ecal  fit  sigma  "  374 
C  test  mean  "  381 
C  test  rms  "  388 
C  test  fitted  mean  "  395 
C  etest  fit  mean  "  402 
C  test  fitted  sigma  "  409 
C  etest  fit  sigma  "  416 
C  #  calib.  pts.  "  423 
C  #  test  pts.  "  430 
C  avg.  per  cent  error  "  437 


C...Now  fill  up  the  third  record 
C... Store  the  correlation  coefficients 
DO  N  =  1 ,NTERMS 
LREC(N)  =  R(N) 

END  DO 


LREC(8 )  *  RHUL 


C. . .Get  residual  mean  and  rms 
LREC(9 )  -  HSTATI (20,1) 
LREC(10)  =  HSTATI(20,2) 
LREC( 15  )  =  HSTATI (34,1) 
LREC( 16 )  =  HSTATI (34 ,2) 


from  HBOOK  and  store 

(calib.  resid.  mean 
Icalib.  resid.  rms 
! test  resid .  mean 
! tes t  resid .  rms 


C. . . Store  Gaussian  params. 
LREC(ll)  =  AVC 
LREC( 12 )  =  SIGC( 2 ) 
LREC( 13 )  =  SDC 
LREC( 14 )  =  SIGC( 3) 


to  calib.  residuals 
(fitted  mean 
!std.  dev.  of  mean 
(fitted  sigma 
(std.  dev.  of  sigma 


C. . . Store  Gaussian  params.  to  test  residuals 
LREC( 17  )  =  AVT 
LREC( 18 )  -=  SIGT(2) 

LREC( 19 )  =  SDT 
LREC(20)  =  SIGT( 3) 

C... Extract  number  of  calibration  and  test  points  from  histo  info 
CALL  HN0ENT( 20, Ll )  !#  of  entries  in  histo  #20 

CALL  HN0ENT(34,L2)  !#  of  entries  in  histo  #34 

LREC( 21)  =  FLOAT(Ll) 

LREC(22 )  =  FLOAT (L2) 

C...Per  Cent  error  in  test  points 
LREC(23)  =  HSTATI (31.1) 


URITE( 15 , 10)  ADATE , ATIME, CALTYPE , IMAGEFILE1 , IMAGETYPE1 , IET , LET , 
ILT , LLT, IMAGEFILE2 , IMAGETYPE2 , IES.LES, 

ILS , LLS, (KREC(N) , N=1 , 26) , ( LREC(N) ,N=1 , 23) 


URITE( 16,25) 
VRITE( 16,26) 
VRITE( 16,26) 
VRITE( 16,27) 
VRITE( 16,28) 
VRITE(16,28) 
URITE( 16,29) 
VRITE(16,*) 
URITE( 16 , *) 


ADATE, ATIME, CALTYPE 
IMAGEFILEl , IMAGETYPE1 , IET , LET , ILT , LLT 
IMAGEFILE2 , IMAGETYPE2 , IES , LES , ILS , LLS 
(KREC(N) ,N=1 , 13) 

(KREC(N) ,N=14, 26) 

(LREC(N) ,N=1 , 13) 

(LREC(N) , N=14 , 23) 


10  FORMAT ( 1H  , 5A ,414 , 2A, 414 , F8 . 0 , 25F7 . 2 , 23F7 . 2) 

25  F0RMAT(/,3A) 

26  FORMAT ( 2A , 414 ) 

27  FORMAT ( F8.0,12F7.2) 

28  F0RMAT( 1 3  F7 . 2 ) 

29  F0RMAT( 10F7 . 2 ) 

RETURN 

END 


SUBROUTINE  FINDIT( FOUND, N) 

INCLUDE  'USERSDISK: [ BATHY. SOURCE] BATH . INCLUDE' 
LOGICAL  FOUND, FI 


FI  =  .TRUE. 


DO  I  =  l.NTERMS 

IF  ( IMAGE(N,I+3)  .GT.  LINF(I)  .AND.  FI)  THEN 
FI  =  .TRUE. 

ELSF, 

FI  =  .FALSE. 

END  IF 
END  DO 

IF  ( IMTYPE  .EQ.  'T'  .OR.  IMTYPE  .EQ.  't')  THEN 

IF  ( (IMAGE(N, 1 )  .GE.  IE  .AND.  TMAGE(N.l)  .LE.  LE) .AND. 
+  ( IMAGE(N, 2 )  .GE.  IL  .AND.  IMAGE(N, 2 )  .LE.  LL) .AND. 

-  ( IMAGE(N, 3 )  .GT.  0)  .AND. 

+  ( IMAGE(N, 8)  -LE.  10)  .AND.  FI)  THEN 

FOUND  *  .TRUE. 

END  IF 

ELSE  IF  (IMTYPE  .EQ.  'S'  .OR.  IMTYPE  .EQ.  's')  THEN 

IF  ((IMAGE(N.l)  .GE.  IE  .AND.  IMAGE(N, 1 )  .LE.  LE) . AND. 
♦  ( IHAGE(N, 2 )  .GE.  IL  .AND.  IMAGE(N, 2)  .LE.  LL) .AND. 

+  ( IMAGE(N, 3 )  .GT.  0)  .AND.  FI)  THEN 

FOUND  =  .TRUE. 

END  IF 

END  IF 

RETURN 

END 

SUBROUTINE  LINEELEM 

INCLUDE  'USERSDISK: [ BATH Y . SOURCE J BATH . INCLUDE' 

CHARACTER*!  RESPONSE 


IF  (IMTYPE  .EQ.  'T'  .OR.  IMTYPE  .EQ.  't')  THEN 
VRITE(6,411)  IET, LET, ILT, LLT 
URITE(6,*) 

VRITE(6,*)  'Do  you  wish  to  make  changes?  (Y/N)' 
ACCEPT  15,  RESPONSE 

IF  (RESPONSE  .EQ.  'Y'  .OR.  RESPONSE  .EQ.  'y')  THEN 
VRITE(6,*)  'Enter  Initial  Elem  and  Last  Elem:' 
ACCEPT  *,  IET, LET 

VRITE(6,*)  'Enter  Initial  Line  and  Last  Line:' 
ACCEPT  *,  ILT, LLT 
ELSE 

VRITF.j,*)  'No  changes  made.' 

END  IF 

ELSE  IF  (TMTYPE  .EQ.  'S'  .OR.  IMTYPE  .EQ.  's')  THEN 
VRITE(6,412)  IES, LES, ILS, LLS 

VRITE(6,*)  'Do  you  wish  to  make  changes?  (Y/N)' 
ACCEPT  13,  RESPONSE 

IF  (RESPONSE  .EQ.  'Y'  .OR.  RESPONSE  .EQ.  'y')  THEN 
VRITE(6,*)  'Enter  Initial  Elem  and  Last  Elem:' 
ACCEPT  *,  IES, LES 


vTRITE  ( 6 ,  * )  'Enter  Initial  Line  and  Last  Line:' 

ACCEPT  *,  ILS , LLS 
ELSE 

WRITL(6,*)  'No  changes  made.' 

END  IF 
END  IF 

15  FORMAT(A) 

411  F0RMAT( 'OInitial  Element  TM  =',I5,'  Last  Element  TM  = ' ,15,/, 

+  '  Initial  Line  TM  =',I5,'  Last  Line  TM  = ' ,15,/) 

412  FORMAT( 'OInitial  Element  SPOT  =',I5,'  Last  Element  SPOT  =',I5,/, 

+  '  Initial  Line  SPOT  =',I5,'  Last  Line  SPOT  =',I5,/) 

RETURN 

END 


oooooooon 


PROGRAM  LINF7 

...This  program  does  a  paredes  &  spero  model  fit  to  the  data, 
based  on  L  infinity  slices. 

...It  uses  combined  imagery  from  TM  and  SPOT 

...It  quizzes  the  user  for  the  number  of  bands  to  use  from  each  sensor 
...and  asks  for  the  value  of  the  L  infinities  in  each  band. 

...Imagery  data  are  taken  from  the  combined  DST  files,  asking  the  user  f<~ 
the  file  name. 

...A  subroutine  at  the  end  will  print  a  three  line  summary  of  the  fit  to 
the  output  summary  file. 

C... Include  file  contains  common  blocks 

INCLUDE  'USER$DISK: (BATHY. SOURCEJBATH. INCLUDE- 
CALL  HLIMIT(20000) 

CALL  HB00K2(4 , '  CALCULATED  DEPTH  VS.  ACTUAL  DEPTHS', 

+  50,0. ,50. ,35,0. ,35. ,16) 

CALL  HB00K2 ( 10 , '  MEAS.  DEPTH  VS.  CALC.  DEPTH  -  MEAS.  DEPiHS' , 

♦  40, 0. ,20. ,40,-10. ,10. ,16) 

CALL  HBOOK1 ( 15 , '  PER  CENT  ERROR,  CALIB .  PTS.S', 

+  50,0. ,100. ,256) 

CALL  HBOOK1(20,'  RESIDUALS,  DEPTH  -  CALCULATED  DEPTHS', 

+  60,-15. ,15. ,256) 

CALL  HCOPY (15,31,'  PER  CENT  ERROR,  TEST  PTS.S') 

CALL  HC0PY(4, 32, '  TEST  DEPTHS;  CALC.  VS.  ACTUALS') 

CALL  HC0PY( 10, 23 , '  TEST  DEPTHS;  ACT.  VS.  MEAS.  -  ACT.  $') 

CALL  HC0PY(20, 34 , '  TEST  DEPTH  RESIDUALS,  ACT.  -  CALCS') 

CALL  HB00K1 ( 101 , '  NEAREST  NEIGHBORSS' , 100,0. , 1000. , 2048) 

CALL  HBOOK1(102, '  DEPTH  DIFF.  TM  -  SPOTS' , 60, -30 ., 30. , 2048) 

CALL  HB00K1 ( 103 , '  NEIGHBORS,  POINT  3S' , 100,0. , 10000. , 2048) 

CALL  HBLACK(O) 

CALL  HTITLE( '  USA,  USM,  NORDA.  Satellite  BathymetryS' ) 

CALL  MAIN 
CALL  EXIT 
END 


SUBROUTINE  MAIN 


C. .. Subroutine  to  do  Multiple  Linear  Regression  driving 


C... include  the  common  blocks 


C. 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


INCLUDE  USERSDISK: (BATHY. SOURCEJBATH. INCLUDE' 
CHARACTER* 40  TMSPOTFILE,  PSFILE 
..Array  IMAGE  contains  the  following  data 

IMAGE(N,1)  =  column  of  Nth  calibration  point-tm 
,2)  =  row  of  Nth  calibration  point-  tm 

3  =  depth*10  in  meters 

4  s  tm  band  1  gray  level 

5  =  tm  band  2  gray  level 

6  =  tm  band  3  gray  level 

7  =  tm  band  4  gray  level 

8  =  tm  band  5  gray  level 

9  =  column  of  Nth  calib  point-spot 

1C  =  row  of  Nth  calib  point-spot 

11  =  spot  band  1  gray  level 

12  =  spot  band  2  gray  level 

13  =  spot  band  3  gray  level 


DIMENSION  X(2000) ,  Y(2000),  SIGMAY(2000) ,  M(10),  YFIT(2000), 

+  A( 10) ,  SIGMAA(IO),  R( 10) ,  RSIG(IO) 

C... Define  error  mode  for  subroutine  REGRESS 
DATA  MODE/O/ 

DATA  DMIN/O./.DMAX/O./ 

C...0pen  needed  files 
URITE(6, 3) 

3  F0RMAT( ' OEnter  name  of  TMSPOT  DST  file  to  use.') 

READ(5,4)  TMSPOTFILE 

4  FORMAT(A) 

PRINT  7 

7  F0RMAT('  Enter  name  of  output  file.') 

ACCEPT  4,  PSFILE 

<‘lTEN(UNIT=7 ,  FILE=TMSPOTFILE ,  STATUS='  OLD'  ,  READONLY)  !tm-spot  data  file 
0PEN(UNIT=2 , FILE=PSFILE , STATUS= ' NEW' ) 

PRINT  110,  TMSPOTFILE,  PSFILE 
URITE(2, 110)  TMSPOTFILE, PSFILE 
110  F0RMAT(1H1 , '  TMSPOT  Input  filename  =  ',A,/, 

+  'OOutput  bathy  filename  =  ' ,A) 

C...Go  get  some  needed  information  from  the  user 
CALL  GETINFO 

C..Get  some  more  needed  information  from  the  user 
CALL  LINE_ELEM 

URITE(2 , 20)  IET , LET , ILT , LLT 
VRITE(2, 21)  IES.LES, ILS, LLS 

C...Go  read  in  calibration  data  and  gray  levels  from  disk 

CALL  DATAIN(1 ,NPTS)  !1  indicates  data  to  be  used  in  regression 

C... Gather  calibration  and  corresponding  data  points  into  one  array 
NE  =  0 

DO  NK  =  1 ,NPTS 

IF( (IMAGE(NK, 1)  .GE.  IET  .AND.  IMAGE(NK, 1 )  .LE.  LET). AND. 

+  (IMAGE(NK, 2)  .GE.  ILT  .AND.  IMAGE(NK,2)  .LE.  LLT). AND. 

+  (IMAGE(NK, 9)  .GE.  IES  .AND.  IMAGE (NK, 9)  .LE.  LES) .AND. 

+  ( IMAGE (NK, 10)  .GE.  ILS  .AND.  IMAGE(NK, 10)  .LE.  LLS). AND. 

+  (IMAGE(NK, 4)  .GT.  LINF( 1) ) . AND. 

+  (IMAGE(NK, 5)  .GT.  LINF( 2) ) . AND. 

+  (IMAGE(NK, 6)  .GT.  LINF( 3) ) . AND. 

4  (IMAGE(NK,7)  .GT.  LINF(4) ) . AND. 

+  (IMAGE(NK, 11)  .GT.  LINF(5)) .AND. 

+  (IMAGE(NK, 12)  .GT.  LINF(6) ) . AND. 

4  (IMAGE(NK, 13)  .GT.  LINF( 7 ) ) . AND. 

4  (IMAGE(NK,8)  .LE  .10). AND. 

4  (IMAGE(NK, 3)  .GT.  0))  THEN 

NE  =  NE  4  1 

C...Set  up  arravs  for  mulitple  linear  regression 
X(NE)  =  NE 
DO  K  =  1 ,NTM 

XT(NE,K)  =  AL0G(FL0AT(MAX(IMAGE(NK,K43)-LINF(K),1))) 

END  DO 

DO  K  =  l.NSPOT 

XT(NE,NTM4K)=AL0G(FL0AT(MAX(IMAGE(NK,K4l0)-LINF(K44),l))) 

END  DO 

Y(NE)  =  FLOAT ( IMAGE (NK, 3 ) ) / 10 . 


ELSE 

NTHROV  =  NTHROV  +  1 
END  IF 
END  DO 

VRITE(6, 555)  NE, NTHROV 
VRITE(2 , 555)  NE, NTHROV 
IF(NE  .LT.  NTERMS+2)  THEN 
VRITE(6,556) 

VRITE(2,556) 

STOP 
END  IF 

C...Go  call  the  mulitple  linear  regression  stuff 

CALL  REGRESS( X , Y , SIGMAY , NE , NTERMS , M , 0 , YFIT , AO , A , SIGMAO , SIGMAA , 
+  R , RMUL , CHI SQ , FTEST ) 

C...Loop  over  calibration  depths.  Calculate  residuals. 

DO  N  =  1,  NE 
CALCZ  =  YFIT(N) 

Z  =  Y(N) 

PCE  =  ABS( ( (CALCZ-Z)/Z)*100. ) 

CALL  HFILL( 15 , PCE, 0. ,1.) 

CALL  HFILL(20,Z-CALCZ,0. ,1.) 

CALL  HFILL( 10, Z, Z-CALCZ , 1  - ) 

CALL  HFILL(4,CALCZ,Z, 1 . ) 

END  DO 


C...End  of  Job  Routine 
C...Vrite  fit  info  to  screen 
VRITE(6, 200) 

VRITE(6, 205) 

VRITE(6,210)  AO, SIGMAO 

VRITE(6,215)  (K, A(K) , SIGMAA(K) ,  K=l, NTERMS) 

VRITE(6,218) 

VRITE(6,220)  (K,R(K) ,  K-l, NTERMS) 

VRITE(6,225)  RMUL 
VRITE(6 , 230)  CHISQR,  FTEST 
C...Vrite  fit  info  to  output  file 
VRITE(2 , 200) 

VRITE(2 , 205) 

VRITE(2 , 210)  AO, SIGMAO 

VRITE(2, 215)  (K, A(K) , SIGMAA (K) ,  K  =  1, NTERMS) 

VRITE(2, 218) 

VRITE(2,220)  (K,R(K),  K  =  1, NTERMS) 

VRITE(2 , 225)  RMUL 
VRITE(2 , 230)  CHISQR,  FTEST 

C..  Let  the  user  know  about  what's  going  on. 

VP.ITE(6 , 240) 

C...Loop  to  check  resids  of  non  calibration  points 
CALL  DATAIN(2,NPTS)  !get  test  calib.  pts. 

DO  N  =  1,  NPTS 

CD  =  FL0AT(IMAGE(N,3))/10.  !depth  in  meters 

IF((IMAGE(N, 1)  .GE.  IET  .AND.  IMAGE(N, 1)  .LE.  LET). AND. 

+  (IMAGE(N, 2)  .GE.  ILT  .AND.  IMAGE(N, 2)  .LE.  LLT) .AND. 

+  (IMAGE(N,9)  .GE.  IES  .AND.  IMAGE(N,9)  .LE.  LES) .AND. 

+  (IMAGE(N, 10)  .GE.  ILS  .AND.  IMAGE(N,10)  .LE.  LLS) .AND 


+  (IMAGE(N, 4)  .GT.  LINF( 1 ) ) . AND. 

+  (IMAGE(N,5)  .GT.  LINF( 2 ) ) . AND. 

+  (IMAGE(N,6)  .GT.  LINF( 3) ) . AND. 

+  ( IMAGE(N , 7 )  .GT.  LINF(4) ) . AND. 

+  (IMAGE(N,11)  .GT.  LINF(5) ) . AND. 

+  ( IMAGE(N , 12 )  .GT.  LINF(6) ) . AND. 

+  ( IMAGE(N , 13)  .GT.  LINF(7) ) .AND. 

+  ( I MAGE (N, 8)  .LE  .10). AND. 

+  (IMAGE(N, 3)  .GT.  0))  THEN 

DO  MM  =  1,  NTM 

RSIG(MM)  =  FLOAT(MAX(IMAGE(N, MM+3) -LINF(MM) ,  1 ) ) 

END  DO 

DO  MM  =  1,  NS POT 

RSIGvNTM+MM)  =  FL0AT(MAX(IMAGE(N,MM+10)-LINF(MM+4) , 1) ) 

END  DO 
ZT  =  AO 

DO  MM  =  1,  NTERMS 

ZT  =  ZT  +  A(MM)*ALOG(RSIG(MM) ) 

END  DO 

PCE  *  ABS(((ZT-CD)/CD)*100. ) 

CALL  HFILL(31,PCE,0. ,1.) 

CALL  HFILL( 32 , ZT,CD, 1 . ) 

CALL  HFILL(33,CD,CD-ZT, 1. ) 

CALL  HFILL(34,CD-ZT,0. ,1. ) 

END  IF 
END  DO 

C...Let  user  knov  vhat  is  happening 
WRITE(6, 260) 

C...fit  Gaussian  distribution  to  residuals  and  then  print  the  histograms 
CALL  HFITGA(20, C3 , AVC, SDC, CHI2C, 12 , SIGC)  Icalibration  points 
CALL  HFITGA(34 , C3 , AVT, SDT, CHI2T, 12 , SIGT)  !test  points 
CALL  HISTCO 

C...Go  print  out  summary  information  on  fit 
VRITE(6 , 265) 

CALL  SUMMARY (AO , A , SIGMAO , SIGMAA , R , RMUL) 

C...Lets  get  out  of  here.  Tell  user  we're  done. 

URITE(6, 270) 

RETURN 

C... FORMAT  statements 

5  F0RMAT( IX, 110 , '  Calibration  points  read  in.',/, 

+  IX, 110,'  Calibration  points  outside  of  image.') 

10  FORMAT (3 IX, F7.3,2X,F6.1,2X,F6.1) 

20  F0RMAT( '  IET  ',14,'  LET  ',14,'  ILT  ',14,'  LLT  ',14) 

21  FORMAT ( '  IES  ',14,'  LES  ',14,'  ILS  ',14,'  LLS  ',14) 

90  F0RMAT( IX, 13 , 2X, 13 , 2X, F4. 1 ) 

100  F0RMAT(I3,2X,I3,F5.1) 

200  F0RMAT( /// ' 0  -  RESULTS  OF  MULTIPLE  LINEAR' 

+  '  REGRESSION  - '//) 

205  FORMAT('OFitted  Parameter  Values') 

210  FORMAT ( '  AO  =  'F8.3,'  +/-  ',F3.4) 

215  FORMAT ( '  A', II,'  =  ' , F8 . 3 , '  +/-  ',F8.4) 

218  FORMAT('OLinear  Correlation  Coefficients') 

220  FORMAT ( '  R' ,11, '  =  ' ,F8.3) 

225  FORMAT ( '  Multiple  Correlation  Coefficient,  RM  =  ',F8.3) 

230  F0RMAT( 'OCHISQ  =  ',F8.3,'  FTEST  =',F10.3) 


240  F0RMAT('0Nov  gathering  statistics  using  test  points...') 

250  F0RMAT( ' ODuplicate  calibration  point.... NR,  NC,  OLD  DEPTH,  NEW', 
+  2I5.2F8.1) 

260  FORMAT('ONov  Playing:  Histograms  and  Scatter  Plots!') 

265  F0RMAT('0Frinting  out  summary.') 

270  F0RMAT('0Job  completed.  I''m  outta  here.') 

555  F0RMAT( 1H0,I10, '  Calibration  points  to  be  used  in  regression.', 

+  /,1H0,I10,'  Calibration  points  out  of  range.') 

556  F0RMAT( 1H0, '  INSUFFICIENT  DATA  FOR  REGRESSION!  STOPPING!!') 
2000  FORMAT(Al) 

END 


SUBROUTINE  GETINFO 

INCLUDE  ' USERSDI SK : [ BATHY . SOURCE ] BATH . INCLUDE ' 

C...Read  the  header  records 

READ(7, 5)  IMAGETYPE , CALTYPE , IMAGEFILE1 , IMAGEFILE2 
READ( 7,6)  IET , LET, ILT, LLT, IES , LES , ILS , LLS 
READ( 7,7)  INFO 

5  F0RMAT(4A) 

6  F0RMAT(8( 3X, 14 ) ) 

7  F0RMAT(A130) 

URITE(6, 10) 

10  F0RMAT( '  SATELLITE  BATHYMETRY!') 

VRITE(6 , 30) 

30  F0RMAT( 'OEnter  number  of  TM  bands  to  use  in  fit.') 
READ(5, *)  NTM 
PRINT  40 

40  FORM AT( 'OEnter  number  of  SPOT  bands  to  use  in  fit.') 
READ(5, *)  NSPOT 
NTERMS  =  NTM  +  NSPOT 
WRITE(6 , 50)  NTM 

50  F0RMAT( 'OEnter  the  TM  LINF"s  (band  1  to  ',11,')') 
READ(5, *)  (LINF(N) ,N=1 ,NTM) 

VRITE(6 , 60)  NSPOT 

60  F0RMAT( 'OEnter  the  SPOT  LINF"s  (band  1  to  ',11,')') 
READ(5, *)  (LINF(N),N=NTM+1, NTERMS) 

C...Go  write  out  info  to  output  file 
CALL  INFOUT 


RETURN 

END 


Q  £  ★★★★★★★  *  ★★★★★  -k  ■kkkkk'k  y*  k  kkkk  k 

SUBROUTINE  INFOUT 

INCLUDE  ' USERSDI SK : [ BATHY . SOURCE  J  BATH . INCLUDE ' 

VRITE(2,10) 

10  FORMATS  SATELLITE  BATHYMETRY') 

VRITE(2 , 12)  IMAGETYPE,  CALTYPE,  IMAGEFILE1 , IMAGEFILE2 
12  F0RMAT( 'Olmagery  from  the  ',A,'  sensor.  Calibration  from  ',A,/, 

+  '  Image  name  is  ',A,A) 

VRITE(2,14)  INFO 

14  F0RMAT( 'OComments  entered  on  this  image  are:',/,lH  ,A) 


VRITE(2 , *) 

VRITE(2,*)  '  Regression  based  on  Linfs  slices.' 
WRITE(2 , *) 

VRITE( 2 , 20 )  NTERMS,  DMIN,  DMAX 
20  F0RMAT( 'OUsing' ,13, '  bands  of  imagery',/, 

+  '  Minimum  calibration  depth  is',F4.0,/, 

+  '  Maximum  calibration  depth  is',F4.0) 

WRITE(2 , 25 ) 

25  F0RMAT('0The  L  infinities  are...') 

DO  N  =  1, NTERMS 

URITE(2,30)  N,  LINF(N) 

30  F0RMAT( '  LINF( ' , II , '  )  =  ',13) 

END  DO 
RETURN 
END 


QA'kiek'k'k'k'k'k 

SUBROUTINE  DATAIN ( LCALL , NP ) 

INCLUDE  'USER$DISK: [BATHY. SOURCE] BATH. INCLUDE' 

DIMENSION  INTENSET(5) , INTENSES(3) 

CHARACTER*80  JUNK 
NP  =  0 

C... Rewind  file  and  skip  header  records 
REUIND( 7 ) 

READ ( 7 ,5)  JUNK 
READ(7,5)  JUNK 
READ(7,5)  JUNK 
5  FORMAT(A) 

C...Read  the  first  TMSPOT  data  record 

READ( 7,10)  LAT , LON , NEAST , NORTH , ID , NCT , NRT , 

+  (INTENSET(N) ,N=1 , 5) ,NCS,NRS, 

+  ( INTENSES (N) ,N=1 , 3) 

10  FORMAT (518 ,1214) 

DO  WHILE  (NEAST  .NE.  0) 

IF  (LCALL  .EQ.  1)  THEN 

IF  (INTENSET(l)  .GT.  0  .AND.  INTENSES(l)  .GT.  0)  THEN 
NP  =  NP  +  1 
IMAGE(NP, 1)  =  NCT 
IMAGE(NP, 2)  =  NRT 
IMAGE(NP, 3)  =  ID 
IMAGE(NP ,4)  =  INTENSET(l) 

IMAGE(NP, 5)  =  INTENSET(2) 

IMAGE(NP, 6)  =  INTENSET(3) 

IMAGE(NP, 7 )  =  INTENSET(4) 

IMAGE(NP ,8)  -  INTENSET(5) 

IMAGE(NP,9)  =  NCS 
IMAGE(NP , 10)  =  NRS 
IMAGE(NP, 11)  =  INTENSES(l) 

IMAGE(NP, 12)  =  INTENSES(2) 

IMAGE(NP, 13)  =  INTENSES(3) 

END  IF 

C...Skip  a  record  to  use  as  a  test  point 

READ ( 7 , 1 0 )  LAT , LON , NEAST , NORTH . I D . NCT , NRT , 

+  ( INTENSET(N) , N=1 , 5) , NCS , NRS, 


+  (INTENSES(N) ,N=1 , 3) 

READ( 7,10)  LAT , LON , NEAST , NORTH , ID , NCT , NRT , 

+  ( INTENSET(N) , N=1 , 5) , NCS , NRS , 

+  (INTENSES(N) , N=l, 3) 

ELSE  IF  ( LCALL  .EQ.  2)  THEN 
C... First  record  used  as  a  calib.  point;  skip  it. 

READ( 7,10)  LAT , LON , NEAST , NORTH , I D , NCT , NRT , 

+  (INTENSE:(N),N=1,5),NCS,NRS, 

+  ( INTENSES (N) , N=1 , 3) 

IF  (INTENSET(l)  .GT.  0  .AND.  INTENSES(l)  .GT.  0)  THEN 
NP  =  NP  +  1 
IHAGE(NP.l)  =  NCT 
IMAGE(NP , 2 )  =  NRT 
IMAGE(NP,3)  =  ID 
IMAGE(NP,4)  =  INTENSET(l) 

IHAGE(NP, 5)  =  INTENSET(2) 

IMAGE(NP ,6)  =  INTENSET(3) 

IMAGE(NP , 7 )  =  INTENSET(4) 

IMAGE (NF ,8)  =  INTENSET(5) 

IMAGE(NP , 9 )  =  NCS 
IMAGE(NP, 10)  =  NRS 
IMAGE(NP, 11)  =  INTENSES(l) 

IMAGE(NP, 12)  =  INTENSES( 2 ) 

IMAGE(NP, 13)  =  INTENSES( 3) 

END  IF 

C...Skip  next  next  record  as  it  was  used  as  a  calib.  point,  too. 
READ( 7,10)  LAT, LON, NEAST, NORTH, ID, NCT, NRT, 

+  ( INTENSET(N) ,N=1 , 5) , NCS , NRS, 

+  ( INTENSES(N) ,N=1 , 3) 

END  IF 
END  DO 
RETURN 
END 


SUBROUTINE  REGRESS( X , Y , SIGMAY , NPTS , NTERMS , M , MODE , YFIT , AO , A , 

+  SIGMAO , SIGMAA , R , RMUL , CHI SQR , FTEST ) 

COMMON  /DATASET/  XT< 3000, 7 ) . IMAGE ( 3000, 13) 

DIMENSION  X(2000) , Y(2000) , SIGMAY (2000) ,M( 10) , YFIT (2000) , A( 10) , 

+  SIGMAA ( 10) ,R( 10) 

DIMENSION  WEIGHT (2000) ,  XMEAN(IO),  SIGMAX(IO),  ARRAY(10,10) 

DIMENSION  INDEX(IO)  Iscratch  space  for  matrix  inversion  routine 

C. . .INITIALIZE  SUMS  AND  ARRAYS 
11  SUM  =  0. 

YMEAN  =  0. 

SIGMA  =  0. 

CHISQ  =  0. 

RMUL  =  0. 

DO  17  I  =  1,  NPTS 

17  YFJ.T(I)  =  0. 

21  DO  28  J  =  1,  NTERMS 

XMEAN(J)  =  0. 

SIGMAX(J)  =  0. 

_ DO  28  K=1 .  NTERMS _ 


28  ARRAY(J.K)  =  0. 


C. . .ACCUMULATE  WEIGHTS 

30  DO  50  1=1 , NPTS 

31  IF  (MODE)  32,37,39 

32  IF  ( Y( I ) >  35,  37,  33 

33  WEIGHT ( I )  =  l./(-Y(I)) 

GO  TO  41 

35  WEIGHT(I)  =  1./  (-Y(I)) 

GO  TO  41 

37  WEIGHT(I)  =  1. 

GO  TO  41 

39  WEIGHT(I)  =  l./SIGMAY(I)**2 
41  SUM  =  SUM  +  WEIGHT(I) 

YMEAN  =  YMEAN  +  WEIGHT(I)*Y(I) 

DO  44  J  =  1,  NTERMS 

44  XMEAN(J)  =  XMEAN(J)  +  WEIGHT(  I  )*FCi'N(  X,  I ,  J ,  M) 

50  CONTINUE 

51  YMEAN  =  YMEAN/SUM 
DO  53  J=l, NTERMS 

53  XMEAN(J)  =  XMEAN(J)/SUM 
FNPTS  =  NPTS 
WMEAN  =  SUM  /  FNPTS 
DO  57  1=1,  NPTS 

57  WEIGHT  (I)  =  WEIGHT  (I)  /WMEAN 

C  ACCUMULATE  MATRICES  R  AND  ARRAY 
61  DO  67  1=1,  NPTS 

SIGMA  =  SIGMA  +  WEIGHT(I)*(Y(I)  -  YMEAN)**2 
DO  67  J=l,  NTERMS 


C. . .DEBUG. . .DEBUG. . .DEBUG 
FCV  =  FCTN(X,I,J,M) 

SIGMAX(J)  =  SIGMAX(J)  +  WEIGHT  ( I )*( FCTN(X, I , J , M)  -  XMEAN(J))**2 
R(J)  =  R( J)  +  WEIGHT(I)*(FCTN(X, I , J , M)-XMEAN( J ) )*( Y(I )-YMEAN) 

DO  67  K-l,  J 

67  ARRAY (  J ,  K )  =  ARRAY (  J ,  K) +WEIGHT ( I )  * (  FCTN ( X ,  I ,  J  ,  M )  -XMEAN ( J  )  ) * 

1  (FCTN(X, I , K,M)-XMEAN(K) ) 

71  FREE1  =  NPTS  -  1 

72  SIGMA  =  SQRT(SIGMA/FREE1) 

DO  78  J  =  1, NTERMS 

74  SIGMAX(J)  =  SQRT(SIGMAX(J) /FREE1) 

R( J)  =  R( J)/ (FREE1*SIGMAX(J )*SIGMA) 

DO  78  K  =  1 , J 

ARRAY(J,K)  =  ARRAY(J.K)  /  (FREE1*SIGMAX( J )*SIGMAX(K) ) 

78  ARRAY(K.J)  =  ARRAY( J ,K) 

C... INVERT  SYMMETRIC  MATRIX 

81  CALL  MATINK ARRAY, 10, NTERMS, MDIM,0, INDEX, NERROR,DET) 

IF  (DET)  101,  91,  101 
91  AO  =  0. 

SIGMAO  =0. 

RMUL  =  0. 

CHISQR  =  0. 

FTEST  =  0. 

GO  TO  150 

C. . .CALCULATE  COEFFICIENTS,  FIT,  AND  CHI  SQUARE 


non 


101  AO  *  YMEAN 

102  DO  108  J=l,  NTERMS 
DO  104  K=1 ,  NTERMS 

104  A(J)  =  A(J)  +  R(K)  *  ARRAY(J.K) 

105  A(J)  =  A(J)  *  SIGMA/SIGMAX(J) 

106  AO  =  AO  -  A( J)*XMEAN(J) 

107  DO  108  1=1,  NPTS 

108  YFIT(I)  =  YFIT(I)  +  A( J )*FCTN(X , I , J , M) 

111  DO  113  1=1,  NPTS 

YFIT(I)  =  YFIT(I)  +  AO 

113  CHISQ  =  CHISQ  +  VEIGHT(I)*(Y(I)  -  YFIT(I))**2 
FREEN  =  NPTS  -  NTERMS  -  1 
115  CHISQR  =  CHISQ*WMEAN/ FREEN 

C  CALCULATE  UNCERTAINTIES 

121  IF  (MODE)  122,  124,  122 

122  VARNCE  =  l./UMEAN 
GO  TO  131 

124  VARNCE  =  CHISQR 

131  DO  133  J=l,  NTERMS 

132  SIGMAA(J)  =  ARRAY (J , J)  *  VARNCE  /  (FREE1*SIGMAX(J)**2) 

133  RMUL  =  RMUL  +  A(J)  *  R(J)  *  SIGMAX( J)/SIGMA 
FREEJ  =  NTERMS 

135  FTEST  =  (RMUL/FREEJ )  /  (( 1 . -RMUL) /FREEN) 

136  RMUL  =  SORT  (RMUL) 

141  SIGMAO  =  VARNCE  /  FNPTS 
DO  145  J=l,  NTERMS 
DO  145  K-l,  NTERMS 

145  SIGMAO  =  SIGMAO  ♦  VARNCE*XMEAN( J)*XMEAN(K)*ARRAY(J ,  K)  / 
1  (FREE1*SIGMAX(J)*SIGMAX(K) ) 

146  SIGMAO  =  SORT  (SIGMAO) 

150  RETURN 

END 


FUNCTION  FCTN(X, I , J ,M) 

COMMON  /DATASET/  XT(3000 , 7) , IMAGE( 3000 , 13) 
DIMENSION  X(l),  M ( 1 ) 

IF  (J  -LE.  7)  THEN 
FCTN  =  XT(I , J) 

ELSE 

VRITE(6 , 10)  J 

10  FORMAT('0! !! SCREW  UP  SOMEWHERE!!!',/, 

+  'In  FCTN.  J  *' ,13, '  Check  NTERMS.') 
WRITE( 2,10)  J 
STOP 
END  IF 
RETURN 
END 


C*********  -r**************************************************************** 

SUBROUTINE  SUMMARY( AO, A , SIGMAO, SIGMAA, R , RMUL) 

C...This  subroutine  prints  out  a  3  line  summary  to  the  analysis  summary  file 
C  according  to  the  following  format 

record  1  contents  data  type  1st  byte  #  bytes 

date  char*9  1  9 

time  char*8  10  8 


C 

calibration  type 

char*4 

18 

4 

c 

image  file  name  1 

char*40 

22 

40 

c 

image  type  1 

char*4 

62 

4 

c 

initial  element 

ir.teger*4 

66 

4 

c 

last  element 

integer*4 

70 

4 

c 

initial  line 

integer*4 

74 

4 

c 

last  line 

integer*4 

78 

4 

c 

image  file  name  2 

char*40 

82 

40 

c 

image  type  2 

char*4 

122 

4 

c 

initial  element 

integer*4 

126 

4 

c 

last  element 

integer*4 

130 

4 

c 

initial  line 

integer*4 

134 

4 

c 

last  line 

integer*4 

138 

4 

c 

bands  used 

F8.0 

142 

8 

c 

Linf  (1-7) 

7 (F7 . 2 ) 

150 

49 

c 

dmin 

F7.2 

199 

7 

c 

dmax 

F7.2 

206 

7 

c 

(A-A7) 

8(F7.2) 

213 

56 

c 

(EA-EA7) 

8(F7 . 2 ) 

269 

56 

c 

r ' s( 1-7 ) 

F7.2 

325 

7 

c 

rmul 

F7.2 

332 

7 

c 

calib  mean 

F7.2 

339 

7 

c 

calib  rms 

ft 

346 

7 

c 

cal  fitted  mean 

II 

353 

7 

c 

ecal  fit  mean 

II 

360 

7 

c 

cal  fitted  sigma 

II 

367 

7 

c 

ecal  fit  sigma 

It 

374 

7 

c 

test  mean 

t! 

381 

7 

c 

test  rms 

II 

388 

7 

c 

test  fitted  mean 

II 

395 

7 

c 

etest  fit  mean 

II 

402 

7 

c 

test  fitted  sigma 

II 

409 

7 

c 

etest  fit  sigma 

II 

416 

7 

c 

#  calib.  pts. 

II 

423 

7 

c 

#  test  pts. 

II 

430 

7 

c 

avg.  per  cent  error 

II 

437 

7 

INCLUDE  ' USERSDI SK : ( BATHY . SOURCE ] BATH . INCLUDE ' 
CHARACTER*9  ADATE 
CHARACTER*8  ATIME,  BLANK 
DATA  BLANK/'  '/ 

DIMENSION  A( 10) , SIGMAA( 10) , R( 10) 

REAL*4  KREC(50) , LREC(50) 


C...Open  the  file  for  appending 

OPEN(UNIT=15 , FILE= ' USERSDISK: ( THFAY. TERRI . EXEC ] SUMMARY. DBAS' , 
+  STATUS- ' OLD' ,ACCESS=' APPEND' ) 

OPEN(UNIT=16 , FILE- ' USER$DISK : ( THFAY. TERRI . EXEC ] SUMMARY .LIS', 

+  STATUS='OLD' ,ACCESS=' APPEND' ) 

C...get  date  and  time 
CALL  DATE (ADATE) 

CALL  TIME(ATIME) 

C...Set  "bands  used"  word,  first  for  TM  then  for  SPOT. 

DO  N  =  0,NTM-1 

KREC(l)  =  KREC(l)  +  (N+l )*( 10**N) 

END  DO 


DO  N  =  0,NSP0T-1 


KREC(l)  =  KREC(l)  +  (N+l)*(10**(N+4)) 
END  DO 

C. . .Store  the  L  infinities 
DO  N  =  1,7 

KREC(WN)  =  LINF(N) 

END  DO 

C... Store  min.  and  max.  depth  allowed 
KREC(9)  =  DHIN 
KREC(IO)  =  DMAX 

C...Save  the  fitted  constants  and  their  errors 
DO  N  =  l.NTERMS 
KREC( 11+N)  =  A(N) 

KREC( 19+N )  =  SIGMAA(N) 

END  DO 

KREC(ll)  =  AO 
KREC( 19)  =  SIGMAO 


C...Nov  fill  up  the  third  record 

C... Store  the  correlation  coefficients 
DO  N  =  1 , NTERMS 
LREC(N)  =  R(N) 

END  DO 

LREC ( 8 )  =  RMUL 

C...Get  residual  mean  and  rms  from  HBOOK  and  store 
LREC(9)  =  HSTATI(20,1)  icalib.  resid.  mean 
LREC ( 10)  =  HSTATI(20,2)  icalib.  resid.  rms 
LREC( 15)  =  HSTATI( 34 , 1 )  itest  resid.  mean 
LREC( 16)  =  HSTATI( 34 , 2)  itest  resid.  rms 

C... Store  Gaussian  params.  to  calib.  residuals 
LREC(ll)  =  A VC  ! fitted  mean 

LREC(12)  =  SIGC(2)  istd.  dev.  of  mean 
LREC(13)  =  SDC  (fitted  sigma 

LREC(14)  =  SIGC(3)  Istd.  dev.  of  sigma 

C... Store  Gaussian  params.  to  test  residuals 
LREC( 17)  =  AVT 
LREC( 18)  =  SIGT(2) 

LREC (19)  =  SDT 
LREC ( 20)  =  SIGT(3) 

C... Extract  number  of  calibration  and  test  points  from  histo  info 
CALL  HN0ENT(20,L1)  I#  of  entries  in  histo  #20 

CALL  HN0ENT( 34 , L2 )  !#  of  entries  in  histo  #34 

LREC (21)  =  FLOAT(Ll) 

LREC(22)  =  FLOAT (L2) 

C...Per  Cent  error  in  test  points 
LREC(23)  =  HSTATI( 31 , 1 ) 


VRITE( 15 , 10)  ADATE , ATIME , CALTYPE , IMAGEFILE1 , IMAGETYPE1 , IET , LET, 
ILT , LLT , IMAGEFILE2 , IMAGETYPE2 , IES, LES, 

ILS, LLS, (KREC(N) ,N=1 , 26) , (LREC(N) ,N=1, 23) 


VRITE( 16 , 25)  ADATE, ATIME,CALTYPE 
VRITE( 16 , 26)  IMAGEFILE1 , IMAGETYPE1 , IET , LET, ILT, LLT 
VfRITE( 16,26)  IMAGEFILE2 , IMAGETYPE2 , IES , LES , ILS , LLS 
VRITE( 16,27)  (KREC(N) ,N=1 , 13) 

URITE( 16,28)  (KREC(N) , N=14 , 26 ) 

URITE( 16,28)  ( LREC(N) , N=1 , 13) 

WRITE( 16,29)  ( LREC(N) , N=14 , 23 ) 

WRITE( 16 , * ) 

URITE( 16 , *) 

10  F0RMAT( 1H  ,  5A, 414 , 2A, 414 , F8 . 0 , 25F7 . 2 , 23F7 . 2 ) 

25  FORMAT(/,3A) 

26  FORMAT(2A,4I4) 

27  F0RMAT( F8 . 0 , 12F7 . 2 ) 

28  FORMAT(13F7.2) 

29  F0RMAT( 10F7 . 2) 

RETURN 

END 

SUBROUTINE  LINEELEM 

INCLUDE  'USERSDISK: (BATHY. SOURCE] BATH. INCLUDE' 

CHARACTER* 1  RESPONSE 

wRITE (6 ,411)  IET, LET, ILT, LLT 
VRITE(6, *) 

URITE(6,*)  'Do  you  wish  to  make  changes?  ( Y/N ) ' 

ACCEPT  15,  RESPONSE 

IF  (RESPONSE  .EQ.  'Y'  .OR.  RESPONSE  .EQ.  'y')  THEN 
URITE(6,*)  'Enter  Initial  Elem  and  Last  Elem:' 

ACCEPT  *,  IET, LET 

VRITE(6,*)  'Enter  Initial  Line  and  Last  Line:' 

ACCEPT  *,  ILT, LLT 
ELSE 

VRITE(6,*)  'No  TM  line/element  changes  made.' 

END  IF 

VRITE(6,412)  IES, LES, ILS, LLS 

VRITE(6,*)  'Do  you  wish  to  make  changes?  (Y/N)' 

ACCEPT  15,  RESPONSE 

IF  (RESPONSE  .EQ.  'Y'  .OR.  RESPONSE  .EQ.  'y')  THEN 
VRITE(6,*)  'Enter  Initial  Elem  and  Last  Elem:' 

ACCEPT  *,  IES, LES 

VRITE(6,*)  'Enter  Initial  Line  and  Last  Line:' 

ACCEPT  *,  ILS, LLS 
ELSE 

URITE(6,*)  'No  SPOT  line/element  changes  made.' 

END  IF 

15  F0RMAT( A) 

411  FORMAT! ' OIni t ial  Element  TM  ='.I5.'  Last  Element  TM  =',I5,/. 

+  '  Initial  Line  TM  =',I5,'  Last  Line  TM  =',I5,/) 

412  FORMAT( 'OInitial  Element  SPOT  =',I5,'  Last  Element  SPOT  =',I5,/, 

+  '  Initial  Line  SPOT  =',I5,'  Last  Line  SPOT  = ' ,15,/) 


RETURN 

END 


o  c> 


PROGRAM  MINMAX4 

.This  program  does  a  paredes  &  spero  model  fit  to  the  data 
•It  quizzes  the  user  for  the  number  of  bands  to  use,  vhich  bands  to  use, 
.the  value  of  DMIN  and  the  value  of  DMAX  to  use.  Cuts  on  the  data  are  made 
.according  to  the  values  of  DMIN  and  DMAX.  It  also  asks  for  the  value  of 
.the  L  infinities  in  each  band. 

.It  reads  in  imagery  data  from  the  nev  DST  file,  asking  the  user  for 
. the  file  name. 

.A  three  line  summary  of  the  results  are  printed  to  the  output 
.summary  file. 

INCLUDE  ' USER$DI SK : [ BATHY . SOURCE  J  BATH . INCLUDE ' 

CALL  HLIMIT(20000) 

CALL  HBOOK2(4 , '  ACTUAL  DEPTH  VS.  CALCULATED  DEPTHS', 

+  50,0. ,50. ,35,0. ,35. ,16) 

CALL  HB00K2( 10 , '  ACT. -CALC.  DEPTH  VS.  ACT.  DEPTHS', 

+  40,0. ,20. ,40,-10. ,10. ,16) 

CALI  ’  C1'1  ( 15 , '  PER  CENT  ERROR,  CALIB .  PTS.$', 

+  50,0. ,100. ,256) 

C.i  Z0,'  RESIDUALS,  ACT.  DEPTH  -  CALC.  DEPTHS', 

+  60,-15. ,15. ,256) 

CAb  ..COPff  15,31, '  PER  CENT  ERROR,  TEST  PTS.S') 

CALL  HCOPY(4, 32, '  TEST  DEPTHS;  ACT.  DEPTH  VS.  CALC.  DEPTHS') 

CALL  HC0PY( 10,33,'  TEST  DEPTHS;  ACT. -CALC.  VS.  ACT.  $' ) 

CALL  HC0PY( 20 , 34 , '  TEST  DEPTH  RESIDUALS,  ACT.  -  CALC-S') 

CALL  HBLACK(O) 

CALI.  HTITLE( '  USA,  USM,  N0RDA.  Satellite  BathymetryS' ) 

CALL  MAIN 
CALL  EXIT 
END 


SUBROUTINE  MAIN 

C. .. Subroutine  to  do  Multiple  Linear  Regression  driving 
CHARACTER*40  DSTFILE,  PSFILE 

C.."Kount"  counts  the  number  of  points  with  calculated  depth  0. 
integer  kount(7) 
data  kount/7*0/ 

INCLUDE  ' USERSDI SK : ( BATHY . SOURCE ] BATH . INCLUDE ' 

C... Array  IMAGE  contains  the  following  data 
C  IMAGE(N,1)  =  column  of  Nth  calibration  point 

C  ,2)  =  row  of  Nth  calibration  point 

C  3  =  depth*10  in  meters 

C  4  =  1st  band  gray  level 

C  5  2nd  banu  gray  level 

C  6  =  3rd  band  gray  level 

C  7  =  4th  band  gray  level 

C  8  =  5th  band  gray  level  (for  land/vater  cut.) 

DIMENSION  X( 4000) ,  Y(4000),  SIGMAY(4000) ,  M(10),  YFIT(4000), 
+  A( 10) ,  SIGMAA(IO),  R( 10) 

C. . .Define  error  mode  for  subroutine  REGRESS. 

DATA  MODE/O/ 


C. . .Open  needed  files. 


WRITE(6, 3) 

3  FORMAT ( ' OEnter  name  of  DST  file  to  use.') 

READ( 5,4)  DSTFILE 

4  FORMAT(A) 

PRINT  7 

7  FORMAT ( '  Enter  name  of  output  file.') 

ACCEPT  4,  FSFILE 

0PEN(UNIT=7 , FILE=DSTFILE, STATUS^ ' OLD' , READONLY)  !data  file 

OPEN(UNIT=2,FILE=PSFILE,STATUS='NEV' )  lhardcopy  output  file 

PRINT  110,  DSTFILE,  PSFILE 
VRITE(2, 110)  DSTFILE,  PSFILE 
110  FORMAT( 1H1 , '  Input  filename  =  'fA,/, 

+  'OOutput  bathy  filename  =  ',A) 

C. . .Go  get  some  needed  information  from  the  user 
CALL  GETINFO 

C...Go  get  some  needed  information  from  the  user 
CALL  LINE_ELEM 

IF  (IMTYPE  .EQ.  'T'  .OR.  IMTYPE  .EQ.  't')  THEN 
IE  =  IET 
LE  =  LET 
IL  =  ILT 
LL  =  LLT 

ELSE  IF  (IMTYPE  .EQ.  'S'  .OR.  IMTYPE  .EQ.  's')  THEN 
IE  =  IES 
LE  =  LES 
IL  =  ILS 
LL  =  LLS 
END  IF 

VRITE( 2 , 20)  IE,  LE 
URITE(2,21)  IL, LL 

C...Go  read  in  calibration  data  and  gray  levels  from  dst 
IF  (IMTYPE  .EQ.  'T'.OR.  IMTYPE  .EQ.  't')  THEN 

CALL  DATATM(l.NPTS)  !1  indicates  data  to  be  used  in  regression 
ELSE  IF  (IMTYPE  .EQ.  'S'. OP.  IMTYPE  .EQ.  's')  THEN 
CALL  DATASPOT ( 1 , NPTS ) 

ELSE 

VRITE(6, 120)  IMTYPE 
END  IF 

C... Gather  calibration  and  corresponding  data  points  into  one  array 
NE  =  0 

DO  NK  =  1 ,NPTS 

IF  ((IMAGE(NK, 1)  .GE.  IE  .AND.  IMAGE(NK, 1 )  .LE.  LE) . AND. 

+  (IMAGE(NK, 2 )  .GE.  IL  .AND.  IMAGE(NK, 2 )  .LE.  LL) .AND. 

+  (IMAGE(NK, 3)  .GT.  DMIN*10) . AND. 

+  (IMAGE(NK, 3)  .LT.  DMAX*10) . AND. 

+  (IMAGE(NK,8)  .LE.  10))  THEN 

NE  =  NE  +  1 

C...Set  up  arrays  for  mulitple  linear  regression 
X(NE)  =  NE 
DO  NN  =  l.NTERMS 
XT(NE,NN)  = 

+  AL0G(FL0AT(MAX(IMAGE(NK,NN+3)-LINF(NN) , 1)) ) 

if  (image(nk,nn+3)-linf(nn)  .le.  1)  then 


kount(nn)  •=  kount(nn)  +  1 
endif 

END  DO 

Y(NE)  =  FLOAT ( IMAGE (NK, 3) ) / 10. 

ELSE 

NTHROV  =  NTHROV  +  1 
END  IF 
END  DO 

C. . . ALOG  stuf t : 

do  i*l, mentis 

vrite(6,*)  'band  =' , iband( i ) , '  "ALOG  MAX=1"  count  =',kount(i) 
enddo 

WRITE(6, 555)  NE,NTHROW 
WITE(2,555)  NE, NTHROV 
IF(NE  .LT.  NTERMS+2 )  THEN 
WRITE(6,556) 

WRITE(2 ,556) 

STOP 
END  IF 

C...Go  call  the  mulitple  linear  regression  stuff 

CALL  REGRESS (X,Y, SIGMAY,NE,NTERMS,M,0,YFIT,AO, A, SIGMAO, SIGMAA, 

+  R, RMUL, CHISQR, FTEST) 

C...Loop  over  calibration  depths.  Calculate  residuals. 

DO  N  -  1,  NE 
CALCZ  =  YFIT(N) 

Z  =  Y(N) 

PCE  =  ABS(((CALCZ-Z)/Z)*100.) 

CALL  HFILL<15,PCE,0. ,1.) 

CALL  HFILL( 20, Z-CALCZ,0. ,  1 .  )  !Act.  -  Calc. 

CALL  HFILL( 10,Z, Z-CALCZ, 1 . )  !Act.  -  Calc,  vs  Act. 

CALL  HFILL(4, CALCZ, Z,l.)  !Act-  vs  Calc. 

END  DO 

C...End  of  Job  Routine 
C... Write  fit  info  to  screen 
VRITE(6, 200) 

WRITE(6, 205) 

VRITE(6,210)  AO, SIGMAO 

VRITE(6,215)  (IBAND(K) ,A(K) ,SIGMAA(K) ,  K=1 ,NTERMS) 

WRITE(6, 218) 

VRITE(6 , 220)  (IBAND(K) ,R(X) ,  K=1 ,NTERMS) 

VRITE(6, 225)  RMUL 
VRITE(6,230)  CHISQR,  FTEST 
C... Write  fit  info  to  output  file 
WRITE( 2 , 200) 

WRITE(2 , 205) 

WRITE( 2,210)  AO, SIGMAO 

WRITE(2,215)  (IBAND(K) ,A(K) ,SIGMAA(K) ,  K  =  l.NTERMS) 
WRITE(2,218) 

WRITE( 2 ,220)  (IBAND(K) ,R(K) ,  K  =  1,NTERMS) 

WR1TE(2 , 225)  RMUL 

WRITE( 2 , 230)  CHISQR,  FTEST 

C...Let  the  user  know  about  what's  going  on. 

WRITE(6, 240) 


C...Loop  to  check  resids  of  non  calibration  points 


C...Loop  to  check  resids  of  non  calibration  points.  First  get  test 
C  data. 

IF  (IMTYPE  .EQ.  'T' .OR.  IMTYPE  .EQ.  't')  THEN 

CALL  DATATM(2,NPTS)  !2  indicates  data  to  be  used  in  test 
ELSE  IF  (IMTYPE  .EQ.  'S'  .OR.  IMTYPE  .EQ.  's')  THEN 
CALL  DATASP0T(2 , NPTS) 

ELSE 

VRITE(6 , 120)  IMTYPE 
END  IF 

DO  N  =  1,  NPTS 

CD  =  FLOAT( IMAGE(N, 3) )/10.  [depth  in  meters 

IF  ((IMAGE(N, 1)  .GE.  IE  .AND.  IMAGE(N.l)  .LE.  LE) .AND. 

+  (IMAGE(N,2)  .GE.  IL  .AND.  IMAGE(N,2)  .LE.  LL) .AND. 

+  (CD.GT.DMIN)  .AND.  (CD.LT.DMAX)  .AND.  IMAGE(N,8) . LE. 10)  THEN 

ZT  =  AO 

DO  MM  =  1,  NTERMS 
ZT  =  ZT  + 

+  A( MM ) *AL0G ( FLOAT (MAX( IMAGE ( N, MM+3)-LINF (MM) ,  1) ) ) 

END  DO 

PCE  =  ABS(((ZT-CD)/CD)*100. ) 

CALL  HFILL(31, PCE,0. ,1. ) 

CALL  HFILL(32 , ZT,CD, 1 . )  [Actual  depth  vs  Calculated  depth 

CALL  HFILL(33,CD,CD-ZT, 1 . )  !Act.  -  Calc,  vs  Act. 

CALL  HFILL( 34 , CD-ZT , 0. , 1 . )  !Act.  -  Calc. 

END  IF 
END  DO 

C...Let  user  know  what  is  happening 
WRITE(6 , 260) 

C...fit  Gaussian  distribution  to  residuals  and  then  print  the  histograms 
CALL  HFITGA(20, C3, AVC, SDC, CHI2C, 12 , SIGC)  [calibration  points 
CALL  HFITGA(34 , C3 , AVT, SDT, CHI2T , 12 , SIGT)  Itest  points 
CALL  HISTDO 

C...Go  print  out  summary  information  on  fit 
VRITE(6,265) 

CALL  SUMMARY (AO , A , SIGMAO , SIGMAA , R , RMUL) 


C...Lets  get  out  of  here.  Tell  user  we're  done. 
VRITE(6,270) 

RETURN 


C... FORMAT  statements 

5  F0RMAT(1X, 110, '  Calibration  points  read  in.',/, 

+  IX, 110,'  Calibration  points  outside  of  image.') 

10  FORMAT ( 3 IX , F7 . 3 , 2X , F6 . 1 , 2X, F6 . 1 ) 

20  FORMAT ( '  IE  ',14,'  LE  ',14) 

21  FORMAT ( '  IL  ' ,14, '  LL  ' ,14) 

90  F0RMAT( IX, 13 , 2X, 13 , 2X, F4. 1) 

100  F0RMAT(I3 , 2X, 13 , F5 . 1) 

120  F0RMAT('0Screwy  IMAGETYPE:  ',A) 

200  F0RMAT(///'0  -  RESULTS  OF  MULTIPLE  LINEAR' 

+  '  REGRESSION  - '//) 

205  F0RMAT( 'OFitted  Parameter  Values') 

210  FORMAT ( '  AO  =  'F8.3,'  +/-  ',F8.4) 

215  FORMAT ( '  A', II,'  =  ' , F8 . 3 , '  +/-  ',F3.4) 


218  FORMAT( ' OLinear  Correlation  Coefficients') 

220  FORMAT ( '  R',11,'  =  ',F8.3) 

225  F0RMAT('  Multiple  Correlation  Coefficient,  RM  =  ',F8.3) 

230  FORMAT ('OCHISQ  =  ',F8.3,'  FTEST  =',F10.3) 

240  F0RMAT('0Now  gathering  statistics  using  test  points...') 

250  F0RMAT( ' ODuplicate  calibration  point.... NR,  NC,  OLD  DEPTH,  NEW', 
+  215, 2F8. 1) 

260  F0RMAT('0Nov  Playing:  Histograms  and  Scatter  Plots!') 

265  F0RMAT( ' OPrinting  out  summary.') 

270  F0RMAT('0Job  completed.  I''m  outta  here.') 

555  F0RMAT(1H0,I10, '  Calibration  points  to  be  used  in  regression.', 

+  /,1H0,I10,'  Calibration  points  out  of  range.') 

556  FORMAT ( 1 HO, '  INSUFFICIENT  DATA  FOR  REGRESSION!  STOPPING!!') 
2000  FORMAT(Al) 

END 


'k'k'k'k'k'k'k'k'k-k-k-k-k'k'k'k'k'k 


SUBROUTINE  GETINFO 

INCLUDE  ' USER$DI SK : [ BATHY . SOURCE ] BATH . INCLUDE ' 

C...Read  the  header  records  from  DST  file. 

READ( 7,5)  IMAGETYPE, CALTYPE, IMAGEFILE1 , IMAGEFILE2 
READ(7,6)  IET , LET , ILT , LLT , IES , LES , ILS , LLS 
READ(7,7)  INFO 

5  FORMAT (4A) 

6  F0RMAT(8( 3X, 14) ) 

7  FORMAT (A1 30) 

WRITE(6, 10) 

10  FORMAT ( '  SATELLITE  BATHYMETRY!') 

WRITE(6, 15) 

15  FORMAT  ( '  Enter'  'T"  for  TM  imagery',/, 

+  '  Enter' 'S''  for  SPOT  imagery') 

ACCEPT  16, IMTYPE 

16  FORMAT(A) 

WRITE(6, 20) 

20  F0RMAT( 'OEnter  min  and  max  depths  to  get  from  calibration  file.') 
READ(5,*)  DMIN,  DMAX 
WRITE(6,30) 

30  FORM AT ( 'OEnter  number  of  bands  to  use  in  fit.') 

READ(5,*)  NTERMS 
WRITE(6, 35) 

35  FORM AT( 'OEnter  band(s)  to  use  in  fit:') 

READ(5,*)  (IBAND(N),N=1, NTERMS) 

WRITE(6,40)  NTERMS 

40  F0RMAT( 'OEnter  the  LINF''s  for  the  ',11,'  band(s):') 

READ(5,*)  (LINF(N),N=1, NTERMS) 


C...Go  write  out  info  to  output  file 
CALL  INFOUT 


RETURN 

END 


SUBROUTINE  INFOUT 


INCLUDE  'USERSDISK: ( BATH Y. SOURCE] BATH. INCLUDE’ 

WRITE(2, 10) 

10  FORMAT( '  SATELLITE  BATHYMETRY' ) 

VRITE(2, 12)  IMAGETYPE,  ALTYPE, IMAGEFILE1 , IMAGEFILE2 
12  F0RMAT( ' Olmagery  from  the  ',A,'  sensor.  Calibration  from  ' ,A,/, 
+  '  Image  names  are  ’,A,A) 

VRITE(2 , 14)  INFO 

14  FORMAT ( 'OComments  entered  on  this  DST  file  are:',/,lH  ,A) 

URITE(2, 20)  NTERMS,  (IBAND(N) ,N=1 ,NTERMS) ,  DMIN,  DMAX 
20  FORMAT( 'OUsing' ,13, '  bands  of  imagery',/, 

+  '  Band(s)  ' , <NTERMS>( IX, 12) , / , 

+  '  Minimum  calibration  depth  is',F4.0,/, 

+  '  Maximum  calibration  depth  is',F4.0) 

VRITE(2, 25) 

25  FORMAT('0The  L  infinities  are...') 

DO  N  =  1, NTERMS 

VRITE(2 , 30)  IBAND(N) ,  LINF(N) 

30  FORMAT ( '  LINF ( ' , II , ' )  =  ',13) 

END  DO 
RETURN 
END 


C  *  *  •k'k'k’k'k'k'k'k'k’k'k'k'k'k'k'k'k’kirk'k  *  * 

SUBROUTINE  DAT ATM ( LCALL , NP ) 

C...This  subroutine  reads  in  TM  imagery  data  from  the  dst  file  and 
C... stores  it  in  array  IMAGE. 

INCLUDE  'USERSDISK: [BATHY. SOURCE] BATH. INCLUDE' 

DIMENSION  INTENSE(5) 

NP  =  0 

C... Rewind  file  and  skip  header  records  of  DST  file. 

REVIND(7) 

READ( 7 , *) 

READ(7,*) 

READ(7 ,*) 

C...Read  the  first  data  record 

READ( 7 , 10 )  LAT , LON , NEAST , NORTH , I D , NCT , NRT , 

+  ( INTENSE(N) ,N=1 , 5) 

10  F0RMAT(5I8, 714) 

DO  WHILE  (NEAST  .NE.  0) 

IF  (LCALL  .EQ.  1)  THEN 
IF  ( INTENSE ( 1 ) .GT . 0)  THEN 
NP  =  NP  +  1 
IMAGE(NP.l)  =  NCT 
IMAGE(NP,2)  =  NRT 
IMAGE(NP, 3)  =  ID 
DO  J=l, NTERMS 

IMAGE(NP, J+3)  =  INTENSE(IBAND(J) ) 

ENDDO 

IMAGE(NP,8)  =  INTENSE(5)  !Band  5  is  used  as  a  land/water  cut. 
END  IF 

C...Skip  a  record  to  use  later  as  a  test  point 


READ ( 7 , 1 0 )  LAT , LON , ME AST , NORTH , I D , NCT , NRT , 

+  (INTENSE(N) , N=1 , 5) 

RE AD ( 7 , 1 0 )  LAT , LON , NE AST , NORTH , I D , NCT , NRT , 

+  (XNTENSE(N) , N=1 , 5) 

ELSE  IF  ( LCALL  .EQ.  2)  THEN 
C... First  record  was  used  as  a  calib.  point;  skip  it. 

READ(7, 10)  LAT, LON, NEAST, NORTH, ID, NCT, NRT, 

+  (INTENSE(N) ,N=1 ,5) 

IF  (INTENSE(l) .GT.O)  THEN 
NP  =  NP  +  1 
IHAGE(NP, 1)  =  NCT 
IMAGE(NP, 2)  =  NRT 
IMAGE(NP, 3)  =  ID 
DO  J=1 ,NTERMS 

IMAGE(NP , J+3 )  =  INTENSE(IBAND(J)) 

ENDDO 

IMAGE(NP,8)  =  INTENSE(5)  !Band  5  is  used  as  a  land/water  cut. 
END  IF 

C...Skip  next  record  as  it  was  used  as  a  calib.  point,  too. 

READ (7 , 10 )  LAT , LON , NEAST , NORTH , ID , NCT , NRT , 

+  (INTENSE(N) ,N=1 , 5) 

END  IF 
END  DO 

RETURN 

END 

C******** ************************** ******************************* 
SUBROUTINE  DATASP0T( LCALL, NP) 

C...This  subroutine  reads  in  SPOT  imagery  data  from  the  dst  file  and 
C... stores  it  in  array  IMAGE. 

INCLUDE  'USERSDISK: (BATHY. SOURCE] BATH. INCLUDE' 

DIMENSION  INTENSS( 3) 

NP  =  0 

C... Rewind  file  and  skip  header  records  of  DST  file. 

REUIND(7) 

READ(7,*) 

READ( 7 ,  *) 

READ(7,*) 

C...Read  the  first  data  record. 

READ( 7,10)  LAT , LON , NEAST , NORTH , ID , 

+  NCS.NRS, (INTENSS(N) , N=1 , 3) 

10  F0RMAT(5I8,28X,5I4) 

DO  WHILE  (NEAST  .NE.  0) 

IF  (LCALL  .EQ.  1)  THEN 

IF  (INTENSS(l)  .GT.  0  )  THEN 
NP  =  NP  +  1 
IMAGE(NP.l)  =  NCS 
IMAGE(NP,2)  =  NRS 
IMAGE(NP, 3)  =  ID 
DO  J=1 , NTERMS 

IMAGE(NP, J+3)  =  INTENSS( IBAND( J) ) 

ENDDO 

IMAGE(NP,7)  =  0 
IMAGE(NP,8)  =  0 
END  IF 


C...Skip  a  record  to  use  as  a  test  point 

READ (7,10)  LAT , LON , NEAST , NORTH , ID , 

+  NCS.NRS, (INTENSS(N) , N=1 , 3) 

READ( 7,10)  LAT , LON , NEAST , NORTH , ID, 

+  NCS.NRS, (INTENSS(N) ,N=1, 3) 

ELSE  IF  ( LCALL  .EQ.  2)  THEN 
C. . . First  record  used  as  a  calib.  point;  skip  it. 

READ( 7,10)  LAT , LON , NEAST , NORTH , ID , 

+  NCS,NRS, (INTENSS(N) , N=l,3) 

IF  (INTENSS(l)  .GT.  0  )  THEN 
NP  =  NP  +  1 
IMAGE(NP, 1 )  =  NCT 
IMAGE(NP, 2 )  =  NRT 
IMAGE(NP , 3 )  =  ID 
DO  J=1 , NTERMS 

IMAGE(NP, J+3)  =  1NTENSS( IBAND( J ) ) 

ENDDO 

IMAGE(NP, 7 )  =  0 
IMAGE(NP,8)  =  0 
END  IF 

C...Skip  next  record  as  it  was  used  as  a  calib.  point,  too. 
READ( 7,10)  LAT , LON , NEAST , NORTH , ID , 

+  NCS.NRS, (INTENSS(N),N=1, 3) 

END  IF 
END  DO 

RETURN 

END 


(3**  **********  ******************  *x*****  *******************  *■*★***★*★ 

SUBROUTINE  REGRESS ( X , Y , SIGMAY , NPTS , NTERMS , M , MODE , YFIT , AO , A , 

+  SIGMAO , SIGMAA , R , RMUL , CHISQR , FTEST ) 

COMMON  /DATASET/  XT(4000, 7) , IMAGE(4000, 13) 

DIMENSION  X(4000) , Y(4000) , SIGMAY(4000) ,M( 10) , YFIT(4000) , A( 10) , 

+  SIGMAA (10) ,R(10) 

DIMENSION  UEIGHT(4000) ,  XMEAN(IO),  SIGMAX(IO),  ARRAY(IO.IO) 
DIMENSION  INDEX(IO)  Iscratch  space  for  matrix  inversion  routine 

C. . .INITIALIZE  SUMS  AND  ARRAYS 
11  SUM  =  0. 

YMEAN  =  0. 

SIGMA  =  0. 

CHISQ  =  0. 

RMUL  =  0. 

DO  17  I  =  1,  NPTS 

17  YFIT(I)  =  0. 

21  DO  28  J  =  1,  NTERMS 

XMEAN(J)  =  0. 

SIGMAX(J)  =  0. 

DO  28  K=l.  NTERMS 
28  ARRAY( J ,K)  =  0. 

C. . .ACCUMULATE  WEIGHTS 

30  DO  50  1=1, NPTS 

31  IF  (MODE)  32,37,39 

32  IF  ( Y( I ) )  35,  37,  33 

33  VEIGHT(I)  =  1 . / ( — Y ( I ) ) 

GO  TO  41 


35  WEIGHT ( I )  =  1./  (-Y(I)) 

GO  TO  41 

37  WEIGHT ( I )  =  1. 

GO  TO  41 

39  WEIGHT(I)  -  l./SIGMAY(I)**2 
41  SUM  =  SUM  -  WEIGHT(I) 

YUEAN  =  YMEAN  +  WEIGHT(I)*Y(I) 

DO  44  J  =  1,  NTERMS 

44  XMEAN(J)  =  XMEAN(J)  +  WEIGHT( I )*FCTN(X, I , J ,M) 

50  CONTINUE 

51  YMEAN  =  YMEAN/SUM 
DO  53  .1-1 , NTERMS 

53  XMEAN(J)  =  XMEAN( J)/SUM 
FNPTS  =  NPTS 
WMEAN  =  SUM  /  FNPTS 
DO  57  1=1,  NPTS 

57  WEIGHT  (I)  «  WEIGHT  (I)  /WMEAN 

C  ACCUMULATE  MATRICES  R  AND  ARRAY 

61  DO  67  1=1,  NPTS 

SIGMA  =  SIGMA  +  WEIGHT(I)*(Y(I)  -  YMEAN)**2 
DO  67  3=1,  NTERMS 

SIGMAX(J)  =  SIGMAX(J)  +  WEIGHT  ( I ) * ( FCTN ( X , I , J , M )  -  XMEAN(J))**2 
R(J)  =•-  R  ( J )  +  WEIGHT(I  )*(FCTN(X,  I ,  J  ,M)-XMEAN(  J )  )*(  Y(I  )-YMEAN) 

DO  67  K=l,  J 

67  ARRAY( J , K)  =  ARRAY( J ,K)+WEIGHT(I )*( FCTN(X, I , J , M) -XMEAN( J ) )* 

1  (FCTN(X, I ,K,M)-XMEAN(K) ) 

71  F'REEl  =  NPTS  -  1 

72  SIGMA  =  SORT ( SIGMA/FREE1 ) 

DO  78  J  =  1, NTERMS 

74  SIGMAX(J)  =  SQRT(SIGMAX(J) /FREE1) 

R( J )  =  R( J ) / ( FREE1*SIGMAX( J ) *SIGMA) 

DO  78  K  =  1,J 

ARRAY( J,K)  =  ARRAY(J.K)  /  (FREE1*SIGMAX(J)*SIGMAX(K) ) 

78  ARRAY ( K , J )  =  ARRAY(J,K) 

C... INVERT  SYMMETRIC  MATRIX 

81  CALL  MATIN1( ARRAY, 10, NTERMS, MDIM,0, INDEX, NERROR.DET) 

IF  (DET)  101,  91,  101 
91  AO  =  0. 

SIGMAO  =0. 

RMUL  =  0. 

CHISQR  =  0. 

FTEST  =  0. 

GO  TO  150 

C.  .  .CALCULATE  COEFFICIENTS,  FIT,  AND  CHI  SQUARE 

101  AO  =  YMEAN 

102  DO  108  J=l,  NTERMS 
DO  104  K=l,  NTERMS 

104  A ( J )  =  A( J )  +  R(K)  *  ARRAY(J,K) 

105  A ( J )  =  A( J )  *  SIGMA/SIGMAX( J ) 

106  AO  =  AO  -  A( J)*XMEAN( J) 

107  DO  108  1=1,  NPTS 

108  YFIT(I)  =  YFIT(I)  +  A( J)*FCTN(X, I, J,M) 

111  DO  113  1=1,  NPTS 

YFIT(I)  =  YFIT(I)  +  AO 

113  CHISQ  =  CHISQ  ♦  WEIGHT(I)*(Y(I)  -  YFIT(I))**2 
FREEN  =  NPTS  -  NTERMS  -  1 
115  CHISQR  =  CHI SQ*WMEAN/ FREEN 


C  CALCULATE  UNCERTAINTIES 

121  IF  (MODE)  122,  124,  122 

122  VARNCE  =  l./VMEAN 
GO  TO  131 

124  VARNCE  =  CHISQR 

131  DC  133  J=l,  NTERMS 

132  SIGMAA(J)  =  ARRAY( J, J)  *  VARNCE  /  (FREE1*SIGMAX( J)**2) 

133  RMUL  =  RMUL  +  A(J)  *  R(J)  *  SIGMAX(J ) /SIGMA 
FREEJ  =  NTERMS 

135  FTEST  =  (RMUL/FREEJ)  /  ( ( 1 . -RMUL)/FREEN) 

136  RMUL  =  SORT  (RMUL) 

141  SIGMAO  =  VARNCE  /  FNPTS 
DO  145  J«l,  NTERMS 
DO  145  K=1 ,  NTERMS 

145  SIGMAO  =  SIGMAO  +  VARNCE*XMEAN( J)*XMEAN(K)*ARRAY( J ,K)  / 
1  (FREE1*SIGMAX( J )*SIGMAX(K) ) 

146  SIGMAO  =  SORT  (SIGMAO) 

150  RETURN 

END 


FUNCTION  FCTN(X, I , J , M) 

COMMON  /DATASET/  XT(4000 , 7 ) , IMAGE(4000, 13) 

DIMENSION  X(l),  M ( 1 ) 

IF  (J  .LE.  4)  THEN 
FCTN  =  XT(I , J) 

ELSE 

VRITE(6 , 10)  J 

10  FORMAT ( ' 0 ! ! ! SCREW  UP  SOMEWHERE !!!',/, 

+  'In  FCTN.  J  =' , 13 , '  Check  NTERMS. ' ) 

WRITE( 2 , 10)  J 
STOP 
END  IF 
RETURN 
END 

★★★★★★★★★★★★★ 

SUBROUTINE  SUMMARY( AO , A , SIGMAO , SIGMAA , R , RMUL) 

C...This  subroutine  prints  out  a  3  line  summary  to  the  analysis  summary  file 
C  according  to  the  following  format 


c 

record  1  contents 

data  type 

1st  byte 

#  bytes 

c 

date 

char*9 

1 

9 

c 

time 

char*8 

10 

8 

c 

calibration  type 

char*4 

18 

4 

c 

image  file  name  1 

char*40 

22 

40 

c 

image  type  1 

char*4 

62 

4 

c 

initial  element 

integer*4 

66 

4 

c 

last  element 

integer*4 

70 

4 

c 

initial  line 

integer*4 

74 

4 

c 

last  line 

integer*4 

78 

4 

c 

image  file  name  2 

char*40 

82 

40 

c 

image  type  2 

char*4 

122 

4 

c 

initial  element 

integer*4 

126 

4 

c 

last  element 

integer*4 

130 

4 

c 

initial  line 

integer*4 

134 

4 

c 

last  line 

integer*4 

138 

4 

c 

bands  used 

F8.0 

142 

8 

c 

Linf  (1-7) 

7(F7.2) 

150 

49 

c 

dmin 

F7.2 

199 

7 

c 

dmax 

F7.2 

206 

7 

c 

(A-A7) 

8(F7. 2) 

213 

56 

c 

(EA-EA7) 

8(F7 . 2) 

269 

56 

c 

r ' s( 1-7) 

F7.2 

325 

7 

c 

rmul 

F7.2 

332 

7 

c 

calib  mean 

F7.2 

339 

7 

c 

calib  rms 

ft 

346 

7 

c 

cal  fitted  mean 

It 

353 

7 

c 

ecal  fit  mean 

tt 

360 

7 

c 

cal  fitted  sigma 

tt 

367 

7 

c 

ecal  fit  sigma 

tl 

374 

7 

c 

test  mean 

tt 

381 

7 

c 

test  rms 

It 

388 

7 

c 

test  fitted  mean 

tt 

395 

7 

c 

etest  fit  mean 

tt 

402 

7 

c 

test  fitted  sigma 

tt 

409 

7 

c 

etest  fit  sigma 

tt 

416 

7 

c 

#  calib.  pts. 

tt 

423 

7 

c 

#  test  pts. 

tt 

430 

7 

c 

avg.  per  cent  error 

tt 

437 

7 

INCLUDE  'USERSDISK: [BATHY. SOURCE] BATH. INCLUDE' 
CHARACTER*9  ADATE 
CHARACTER*8  ATIME,  BLANK 
DATA  BLANK/'  '/ 

DIMENSION  A( 10) , SIGMAA( 10),R(10) 

REAL*4  KREC(50) , LREC(50) 


C...Open  the  file  for  appending 

0PEN(UNIT=15 , FILE= ' DJA3 : (THFAY.DSTRUNS] SUMMARY. DBAS' , 
+  STATUS= ' OLD' .ACCESS-' APPEND' ) 

0PEN(UNIT=16 , FILE- ' DJA3 : ( THFAY . DSTRUNS ] SUMMARY .LIS', 

+  STATUS= ' OLD ' , ACCESS= ' APPEND ' ) 


C...get  date  and  time 
CALL  DATE (ADATE) 
CALL  TIME(ATIME) 


C...Set  bits  in  "bands  used"  word 
DO  N  =  O.NTERMS-l 

KREC( ly  =  KREC(l)  +  IBAND(N+1 )*( 10**N) 
END  DO 


C... Store  the  L  infinities 
DO  N  =  1,7 

KREC( 1+N)  =  LINF(N) 

END  DO 

C... Store  min.  and  max.  depth  allowed 
KREC(9)  =  DMIN 
KREC(IO)  =  DMAX 

C...Save  the  fitted  constants  and  their  errors 
DO  N  =  l.NTERMS 
KREC( 11+N)  =  A(N) 

KREC( 19+N)  =  SIGMAA(N) 

END  DO 

KREC(ll)  =  AO 


KREC(19)  =  SIGMAO 


C...Nov  fill  up  the  thiid  record 

C... Store  the  correlation  coefficients 
DO  N  =  1 , NTERMS 
LREC(N)  =  R(N) 

END  DO 

LREC(8)  =  RMUL 

C. . .Get  residual  mean  and  rms  from  HBOOK  and  store 
LREC(9)  «  HSTATI(20,1)  !calib.  res  id.  mean 
LREC(IO)  =  HSTATI(20, 2)  Icalib.  resid.  rms 
LREC( 15)  =  HSTATI(34, 1)  !test  resid.  mean 
LREC( 16)  =  HSTATI(34,2)  !test  resid.  rms 

C... Store  Gaussian  params.  to  calib.  residuals 
LREC(ll)  =  AVC  ! fitted  mean 

LREC( 12 )  =  SIGC(2 )  !std.  dev.  of  mean 

LREC(13)  =  SDC  ! fitted  sigma 

LREC(14)  =  SIGC( 3)  !std.  dev.  of  sigma 

C... Store  Gaussian  params.  to  test  residuals 
LREC(  17 )  =  AVT 

LREC( 18 )  -  SIGT(2) 

LREC(19)  =  SDT 

LREC(20)  =  SIGT(3) 

C... Extract  number  of  calibration  and  test  points  from  histo  info 
CALL  HNOENT(20,L1)  !#  of  entries  in  histo  #20 

CALL  HNOENT(34,L2)  !#  of  entries  in  histo  #34 

LREC (21)  =  FLOAT (LI) 

LREC(22 )  =  FL0AT(L2) 

C...Per  Cent  error  in  test  points 
LREC(23)  =  HSTATI( 31 , 1 ) 


URITE( 1 5,10)  ADATE , ATIME , CALTYPE , IMAGEFI LEI , IMAGETYPE1 , IET , LET , 
+  ILT, LLT, IMAGEFILE2 , IMAGETYPE2 , IES , LES , 

+  ILS, LLS, (KREC(N) , N=1 , 26) , (LREC(N) , N=1 , 23) 

VRITE(16,25)  ADATE, ATIME .CALTYPE 

VRITE( 16 , 26)  IMAGEFILE1 , IMAGETYPE1 , IET , LET , ILT , LLT 
VRITE( 16 , 26)  IMAGEFILE2 , IMAGETYPE2 , IES , LES , ILS , LLS 
WRITE(16,27)  (KREC(N) ,N=1, 13) 

URITE( 16,28)  (KREC(N) ,N=14, 26) 

VRITE( 16 , 28)  ( LREC(N) , N=1 , 13) 

URITE( 16,29)  ( LREC(N) , N=14 , 23 ) 

URITE( 16 , * ) 

VRITE( 16 , * ) 

10  FORMAT ( 1H  . 5A , 414. 2A.4I4 . F8 .0 . 25F7 . 2 , 23F7 . 2 ) 

25  FORMAT ( / , 3A) 

26  F0RMAT(2A,4I4) 

27  FORMAT ( F8 . 0, 12F7 . 2 ) 

28  FORMAT(13F7. 2 ) 

29  FORMAT (10F7. 2) 

RET'JRN 

END 


Q* *★*★★★★★*******★*★★★*★****★★★***★*★★**★ *★*★★*★★★★*★* ★*★*★★*★*★★* 


SUBROUTINE  LINE_ELEM 

INCLUDE  'USERSDISK: (BATHY. SOURCE] BATH. INCLUDE' 
CHARACTER*!  RESPONSE 


IF  (IMTYPE  .EQ.  'T'  .OR.  IMTYPE  .EQ.  't')  THEN 
VRITE(6,411)  IET,LET,ILT,LLT 
URITE(6,*) 

VRITE(6,*)  'Do  you  wish  to  make  changes?  (Y/N)' 
ACCEPT  15,  RESPONSE 

IF  (RESPONSE  .EQ.  'Y'  .OR.  RESPONSE  .EQ.  'y')  then 
WRITE(6 , * )  'Enter  Initial  Elem  and  Last  Elem:' 
ACCEPT  * , IET, LET 

URITE(6,*)  'Enter  Initial  Line  and  Last  Line:' 
ACCEPT  *, ILT, LLT 
ELSE 

URITE(6,*)  'No  changes  made.' 

END  IF 

ELSE  IF  (IMTYPE  .EQ.  'S'  .OR.  IMTYPE  .EQ.  's')  THEN 
VRITE(6,412)  IES, LES, ILS , LLS 

URITE(6,*)  'Do  you  wish  to  make  changes?  (Y/N)' 
ACCEPT  15,  RESPONSE 

IF  (RESPONSE  .EQ.  'Y'  .OR.  RESPONSE  .EQ.  'y')  THEN 
VRITE(6 , * )  'Enter  Initial  Elem  and  Last  Elem:' 
ACCEPT  *, IES, LES 

VRITE(6,*)  'Enter  Initial  Line  and  Last  Line:' 
ACCEPT  *, ILS, LLS 
ELSE 

VRITE(6,*)  'No  changes  made.' 

END  IF 
END  IF 

15  FORMAT(A) 

411  FORMAT( 'OIni tial  Element  TM  =',I5,' 

+  '  Initial  Line  TM  =' ,15, ' 

412  FORMAT( 'OIni tial  Element  SPOT  =',I5,' 

+  '  Initial  Line  SPOT  = ' , 15 , ' 


Last  Element  TM  *',I5,/, 
Last  Line  TM  =' ,15,/) 
Last  Element  SPOT  =',I5,/, 
Last  Line  SPOT  = ' ,15,/) 


RETURN 

END 


ooooooono 


PROGRAM  MINMAX7 

...This  program  does  a  paredes  &  spero  model  fit  to  the  data 

...It  uses  combined  imagery  from  TM  and  SPOT 

...It  quizzes  the  user  for  the  number  of  bands  to  use  from  each  sensor, 
the  value  of  DMIN  and  the  value  of  DMAX  to  use.  It  also  asks  for 
the  value  of  the  L  infinities  in  each  band. 

...Imagery  data  is  taken  from  the  DST  file,  asking  the  user  for 
the  file  name. 

...A  subroutine  at  the  end  will  print  a  three  line  summary  of  the  fit  to 
the  output  summary  file. 


C... Include  file  contains  common  blocks 

INCLUDE  'USER$DISK: [ BATHY . SOURCE j BATH . INCLUDE' 

CALL  HLIMIT(20000) 

CALL  HBOOK2(4 , '  CALCULATED  DEPTH  VS.  ACTUAL  DEPTHS’, 

+  50,0. ,50. ,35,0. ,35. ,16) 

CALL  HB00K2(10, '  MEAS.  DEPTH  VS.  CALC.  DEPTH  -  MEAS.  DEPTHS', 
♦  40,0. ,20. ,40,-10. ,10. ,16) 

CALL  HB00K1 ( 15 , '  PER  CENT  ERROR,  CALIB .  PTS.S', 

+  50,0. ,100. ,256) 

CALL  HBO0Kl(20,'  RESIDUALS,  DEPTH  -  CALCULATED  DEPTHS', 

+  60,-15. ,15. ,256) 

CALL  HC0PY( 15,31,'  PER  CENT  ERROR,  TEST  PTS.S') 

CALL  HC0PY(4, 32, '  TEST  DEPTHS;  CALC.  VS.  ACTUALS') 

CALL  HC0PY( 10,33,'  TEST  DEPTHS;  ACT.  VS.  MEAS.  -  ACT.  $') 
CALL  HCOFY(20, 34, '  TEST  DEPTH  RESIDUALS,  ACT.  -  CALCS') 

CALL  HB00K1 ( 101 , '  NEAREST  NEIGHBORSS' , 100,0. , 1000. , 2048) 

CALL  HB00K1 ( 102 , '  DEPTH  DIFF.  TM  -  SPOTS' ,60,-30. , 30. ,2048) 
CALL  HB00K1 ( 103 , '  NEIGHBORS,  POINT  3$' , 100,0. , 10000. , 2048) 
CALL  HBLACK(O) 

CALL  HTITLE( '  USA,  USM,  NORDA.  Satellite  BathymetryS' ) 

CALL  MAIN 
CALL  EXIT 
END 


SUBROUTINE  MAIN 


C. .. Subroutine  to  do  Multiple  Linear  Regression  driving 
C... include  the  common  blocks 


C. 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


INCLUDE  'USERSDISK: (BATHY. SOURCE] BATH. INCLUDE' 
CHARACTER*40  TMSPOTFILE,  PSFILE 
.Array  IMAGE  contains  the  following  data 

IMAGE(N,1)  =  column  of  Nth  calibration  point-tm 
,2)  =  row  of  Nth  calibration  point-tm 

3  =  depth*10  in  meters 

4  ^  tm  band  1  gray  level 

5  =  tm  band  2  gray  level 

6  =  tm  band  3  gray  level 

7  =  tm  band  4  gray  level 

8  =  tm  band  5  gray  level 

9  =  column  of  Nth  calib.  point-spot 

10  =  row  of  Nth  calib.  point-spot 

11  =  spot  band  1  gray  level 

12  =  spot  band  2  gray  level 

13  =  spot  band  3  gray  level 


DIMENSION  X(2000) ,  Y(2000),  SIGMAY(2000) ,  M(10),  YFIT(2000), 
A( 10) ,  SIGMAA(IO),  R(10),  RSIG(IO) 


C... Define  error  mode  for  subroutine  REGRESS 
DATA  MODE/'O/ 


C...Open  needed  files 
WRITE<6,3) 

3  FORM AT ('OEn ter  name  of  TMSPOT  DST  file  to  use.') 

ACCEPT  4,  TMSPOTFILE 

4  FORMAT (A) 

PRINT  7 

7  FORMAT( '  Enter  name  of  output  file.') 

ACCEPT  4,  PSFILE 

0PEN(UNIT=7,FILE=TMSP0TFILE,STATUS='0LD' .READONLY)  Itmspot  data  file 
OPEN(UNIT=2.FILE=PSFILE,Si’ATUS='NEV' )  Jhardcopy  output  fi 

PRINT  110,  TMSPOTFILE,  PSFILE 
WRITE(2, 110)  TMSPOTFILE,  PSFILE 
110  FORMAT( 1H1 , '  TMSPOT  Input  filename  =  ',A,/, 

+  'OOutput  bathy  filename  =  ' ,A) 

C...Go  get  some  needed  information  from  the  user 
CALL  GETINFO 

C...Get  some  more  needed  information  from  the  user 
CALL  LINE_ELEM 

VRITE( 2,20)  IET, LET, ILT, LLT 
WRITE( 2,21)  IES, LES , ILS, LLS 


C...Go  read  in  calibration  data  and  gray  levels  from  disk 

CALL  DATAIN(l.NPTS)  !1  indicates  data  to  be  used  in  regression 


C... Gather  calibration  and  corresponding  data  points  into  one  array 
NE  =  0 

DO  NK  =  l.NPTS 

IF( ( IMAGE (NK, 1 )  .GE.  IET  .AND.  IMAGE(NK,1)  .LE.  LET). AND. 

+  tIMAGE(NK,  2)  .  GE.  ILT  .AND.  I.MAGE(NK,  2)  .LE.  LLT). AND. 

+  (IMAGE(NK, 9)  .GE.  IES  .AND.  IMAGE(NK,9)  .LE.  LES). AND. 

♦  (IMAGE(NK.IO)  .GE.  ILS  .AND.  IMAGE(NK.IO)  .LE.  LLS). AND. 

+  (IMAGE(NK, 3)  .GT.  DMIN*10) . AND. 

+  (IMAGE(NK,3).LT.DMAX*10) .AND. 

♦  (IMAGE ( NK,8) . LE. 10) )  THEN 
NE  =  NE  +  1 

C...Set  up  arrays  for  mulitple  linear  regression 
X(NE)  =  NE 
DO  K  =  1 ,NTM 

XT ( NE , K. )  =  AL0G(FL0AT(MAX(IMAGE(NK,K+3)-LINF(K) , 1))) 

END  DO 

DO  K  r  1 ,NSP0T 

XT(NE,NTM+K)=ALOG(FLOAT(MAX( IMAGE(NK,K+10)-LINF(K+4) , X ) ) ) 
END  DO 

Y(NE)  FLOAT(IMAGE(NK,  3) ) / 1 0 . 

ELSE 

NTHROW  =  NTHROV  +  1 
END  IF 
END  DO 


VRITE(6,555)  NE, NTHROW 


WRITE(2 , 555)  NE,NTHROW 
IF(NE  .LT.  NTERMS+2)  THEN 
VRITE(6, 556) 

WRITE( 2 , 556) 

STOP 
END  IF 

C. . .Go  call  the  mulitple  linear  regression  stuff 

CALL  REGRESS(X,Y,SIGMAY,NE,NTERMS,M,0,YFIT,AO,A,SIGMAO,SIGMAA, 
+  R,RMUL,CHISQ,FTEST) 


C...Loop  over  calibration  depths.  Calculate  residuals. 
DO  N  -  1 ,  NE 
CALCZ  =  YFIT(N) 

Z  =  Y(N) 

PCE  =  ABS( ( (CALCZ-Z)/Z)*100. ) 

CALL  HFILL( 15, PCE, 0. , 1 . ) 

CALL  HFILL( 20, Z-CALCZ , 0. , 1 . ) 

CALL  HFILL( 10, Z, Z-CALCZ, 1 . ) 

CALL  HFILL(4,CALCZ,Z, 1 . ) 

END  DO 


C...End  of  Job  Routine 
C... Write  fit  info  t>  screen 
WRITE(6 , 200) 

WRITE(6 , 205) 

WRITE(6 , 210)  AO, SIGMAO 

WRITE(6 , 215)  (K, A(K) , SIGMAA(K) ,  K=1,NTERMS) 
WRITE(6 , 218) 

WRITE(6 , 220)  (K,R(k),  K=1 ,NTERMS) 

WRITE(6 , 225)  RMUL 
WRITE(6 , 230)  CHISQR,  FTEST 
C... Write  fit  info  to  output  file 
WRITE(2 , 200) 

WRITE(2, 205) 

WRITE (2, 210)  AO, SIGMAO 

WRITE( 2 , 215)  (K, A(K) , SIGMAA(K) ,  K  =  1 ,NTERMS) 
WRITE(2 , 218) 

WRITE( 2 , 220)  (K,R(K) ,  K.  =  1 ,NTERMS) 

WRITE(2 , 225)  RMUL 
WRITE(2 , 230)  CHISQR,  FTEST 


C. .  Let  the  user  know  about  vhat's  going  on. 

WRITE(6 , 240) 

C...Loop  to  check  resids  of  non  calibration  points 
CALL  DATAIN(2,NPTS)  !get  test  calib.  pts. 

DO  N  =  1,  NPTS 

CD  =  FLOAT(IMAGE(N, 3) )/10.  Idepth  in  meters 

I F ( (IMAGE(N , 1 )  .GE.  IET  .AND.  IMAGE(N, 1 )  .LE.  LET). AND. 

+  (IMAGE(N, 2)  .GE.  ILT  .AND.  IMAGE(N, 2 )  .LE.  LLT) . AND. 

+  (IMAGE(N, 9)  .GE.  IES  .AND.  IMAGE(N, 9)  .LE.  LEG) .AND. 

+  (IMAGE(N, 10)  .GE.  ILS  .AND.  IMAGE(N,10)  .LE.  LLS) .AND. 

+  (CD.GT.DMIN)  .AND.  (CD.LT.DMAX)  .AND.  IMAGE(N , 8) . LE . 10)  THEN 
DO  MM  *  1,  NTM 

RSIG(MM)  =  FLOAT (MAX( IMAGE(N, MM+3)-LINF(MM) , 1 ) ) 

END  DO 

DO  MM  =  1,  NS POT 

RSIG(NTM+MM)  =  FL0AT(MAX(IMAGE(N,MM+10)-LINF(MM+4) , 1) ) 


END  DO 
ZT  =  AO 

DO  MM  =  1,  NTERMS 

ZT  =  ZT  +  A(MM)*ALOG(RSIG(MM) ) 

END  DO 

PCE  =  ABS( ( (ZT-CD)/CD)*100. ) 

CALL  HFILL(31,PCE,0. ,1.) 

CALL  HFILL( 32 , ZT ,CD, 1 . ) 

CALL  HFILL( 33, CD,CD-ZT , 1 . ) 

CALL  HFILL(34,CD-ZT,0. ,1. ) 

END  IF 
END  DO 

C...Let  user  know  what  is  happening 
VRITE(6 , 260) 

C...fit  Gaussian  distribution  to  residuals  and  then  print  the  histograms 
CALL  HFITGA(20, C3 , AVC, SDC, CHI2C, 12 , SIGC)  Calibration  points 
CALL  HFITGA( 34 , C3 , AVT , SDT , CHI2T , 12 , SIGT)  !test  points 
CALL  HISTDO 

C. . .Go  print  out  summary  information  on  fit 
VRITE(6,2b5) 

CALL  SUMMARY (AO , A , SIGMAO , SIGMAA , R , RMUL) 

C...Lets  get  out  of  here.  Tell  user  we're  done. 

URITE(6 , 270) 

RETURN 

C... FORMAT  statements 

5  FORMAT ( IX , 110 , '  Calibration  points  read  in.',/, 

+  IX, 110,'  Calibration  points  outside  of  image.') 

10  F0RMAT( 31X, F7 . 3, 2X, F6 . 1 , 2X, F6 . 1 ) 

20  FORMAT ( '  IET  ',14,'  LET  ',14,'  ILT  ',14,'  LLT  ',14) 

21  FORMAT ( '  IES  ',14,'  LES  ',14,'  ILS  ',14,'  LLS  ',14) 

90  F0RMAT( IX, 13 , 2X,I3,2X,F4.1) 

100  F0RMAT(I3 , 2X, 13 , F5 . 1) 

200  F0RMAT(///'0  -  RESULTS  OF  MULTIPLE  LINEAR' 

+  '  REGRESSION  - '//) 

205  FORMAT ( ' OFi t ted  Parameter  Values') 

210  FORMAT ( '  AO  =  'F8.3,'  +/-  ',F8.4) 

215  FORMAT ( '  A', II,'  =  ',F8.3,'  +/-  ',F8.4) 

218  FORMAT( 'OLinear  Correlation  Coefficients') 

220  FORMAT( '  R',11,'  =  ',F8.3) 

225  FORMAT ( '  Multiple  Correlation  Coefficient,  RM  =  ',F8.3) 

230  FORMAT ( ' OCHISQ  =  ',F8.3,'  FTEST  =',F10.3) 

240  FORM AT ( ' ONow  gathering  statistics  using  test  points...') 

250  FORMaT( 'ODuplicate  calibration  point.... NR,  NC,  OLD  DEPTH,  NEV', 

+  2I5.2F8.1) 

260  FORMAT ( ' ONow  Playing:  Histograms  and  Scatter  Plots!') 

265  FORMAT('OPrinting  out  summary.') 

270  F0RMAT( ' OJoo  completed.  I"m  outta  here.') 

555  F0RMAT(1H0,I10, '  Calibration  points  to  be  used  in  regression.', 

+  / , 1H0, 110, '  Calibration  points  out  of  range.') 

556  FORMAT( 1H0 , '  INSUFFICIENT  DATA  FOR  REGRESSION!  STOPPING!!') 
2000  FORMAT (Al) 

END 


C*********************************************************************** 


SUBROUTINE  GETINFO 

INCLUDE  'USER$DISK: [BATHY. SOURCE ] BATH. INCLUDE' 

C...Read  the  header  record 

READ( 7 , 5 )  IMAGETYPE , CALTYPE , IMAGEFI LEI , IMAGEFILE2 
READ( 7 ,  6 )  IET , LET , ILT , LLT , IES , LES , ILS , LLS 
READ( 7,7)  INFO 

5  F0RMAT(4A) 

6  FORMAT(8( 3X, 14) ) 

7  F0RMAT(A130) 

VRITE(6 , 10) 

10  FORMAT ( '  SATELLITE  BATHYMETRY!') 

VRITE(6,20) 

20  FORMAT( 'OEnter  min  and  max  depths  to  get  from  calibration  file.') 
READ(5,*)  DMIN,  DMAX 
VRITE(6, 30) 

30  FORMAT( 'OEnter  number  of  TM  bands  to  use  in  fit.') 

READ(5,*)  NTM 
PRINT  40 

40  F0RMAT( 'OEnter  number  of  SPOT  bands  to  use  in  fit.') 

READ(5 , *)  NSPOT 
NTERMS  =  NTM  +  NSPOT 
VRITE(6 , 50)  NTM 

50  F0RMAT(  'OEnter  the  TM  LINF"s  (band  1  to  ',11,')') 

READ(5,*)  ( LINF(N) ,N=1 ,NTM) 

VRITE(6,60)  NSPOT 

60  FORMAT  ('OEnter  the  SPOT  LINF"s  (band  1  to  ',11,')') 

READ(5 , *)  (LINF(N),N=NTM+1, NTERMS) 

C...Go  write  out  info  to  output  file 
CALL  INFOUT 


RETURN 

END 


SUBROUTINE  INFOUT 

INCLUDE  'USER$DISK: [BATHY. SOURCE] BATH. INCLUDE' 

URITE(2 , 10) 

10  FORMAT ('  SATELLITE  BATHYMETRY' ) 

VRITE(2 , 12)  IMAGETYPE,  CALTYPE,  IMAGEFILE1 , IMAGEFILE2 
12  FORMAT ( 'Olmagery  from  the  ',A,'  sensor.  Calibration  from  ',A,/, 
+  '  Image  names  are  ' ,A,A) 

WRITE( 2,14)  INFO 

14  FORMAT ( 'OComments  entered  on  this  image  are:',/,lH  ,A) 

VRITE(2 ,20)  NTERMS,  DMIN,  DMAX 
20  F0RMAT( 'OUsing' ,13, '  bands  of  imagery',/, 

+  '  Minimum  calibration  depth  is',F4.0,/, 

+  '  Maximum  calibration  depth  is',F4.0) 

VRITE(2 ,25) 

25  FORMAT ( 'OThe  L  infinities  are...') 

DO  N  =  1, NTERMS 

VRITE(2 , 30)  N,  LINF(N) 

30  FORMAT ( '  LINF(',I1,')  =  ',13) 

END  DO 
RETURN 
END 


SUBROUTINE  DAT*IN(LCALL, NP) 

INCLUDE  "JSERSDISK: [ BATH Y. SOURCE] BATH. INCLUDE' 

DIMENSION  INTENSET(5) , INTENSES(3) 

CHARACTER*80  JUNK 
NP  =  0 

C... Rewind  file  and  skip  header  record 
REWIND(7) 

READ(7,5)  JUNK 
READ(7 , 5)  JUNK 
READ(7,5)  JUNK 
5  FORMAT(A) 


C...Read  the  first  TMSPOT  data  record 

READ( 7,10)  LAT , LON , NEAST , NORTH , ID , NCTM , NRTM , 

+  (INTENSET(N) ,N=1,5) ,NCSPOT,NRSPOT, 

+  ( INTENSES (N) ,N=1 , 3) 

10  F0RMAT(5I8, 1214) 

DO  WHILE  (NEAST  .NE.  0) 

IF  ( LCALL  .EQ.  1)  THEN 

IF  (INTENSET(l)  .GT.  0  .AND.  INTENSES(l)  .GT.  0)  THEN 
NP  =  NP  +  1 
IMAGE(NP, 1)  *  NCTM 
IMAGE (NP, 2)  =  NRTM 
IMAGE (NP , 3)  =  ID 
IMAGE (NP, 4)  =  INTENSET(l) 

IMAGE(NP, b)  =  INTENSET(2) 

IMAGE(NP, 6)  =  INTENSET(3) 

IMAGE (NP, 7)  =  INTENSET(4) 

IMAGE (NP, 8)  =  INTENSET(5) 

IMAGE (NP, 9)  =  NCSPOT 
IMAGE (NP, 10)  =  NRSPOT 
IMAGE(NP, 11)  =  INTENSES(l) 

IMAGE(NP, 12)  =  INTENSES(2) 

IMAGE (NP, 13)  =  INTENSES(3) 

END  IF 

C...Skip  a  record  to  use  as  a  test  point 

READ ( 7 , 10 )  LAT , LON , NEAST , NORTH , ID , NCTM , NRTM , 

+  ( INTENSET (N) , N= 1 , 5 ) , NCSPOT , NRSPOT , 

+  (INTENSES(N) ,N=1 , 3) 

READ( 7,10)  LAT , LON , NEAST , NORTH , ID , NCTM , NRTM , 

+  ( INTENSET( N ) , N= 1 , 5 ) , NCSPOT , NRSPOT , 

+  (INTENSES(N) ,N=1 , 3) 

ELSE  IF  (LCALL  .EQ.  2)  THEN 

C... First  record  used  as  a  calib.  point;  skip  it. 

READ (7,10)  LAT , LON , NEAST , NORTH , ID , NCTM , NRTM , 

+  ( INTENSET ( N ), N= 1 , 5 ), NCSPOT , NRSPOT , 

+  ( INTENSES ( N) ,N=1 , 3) 

IF  (INTENSET(l)  .GT.  0  .AND.  INTENSES(l)  .GT.  0)  THEN 
NP  =  NP  +  1 
IMAGE(NP, 1)  =  NCTM 
IMAGE (NP, 2)  =  NRTM 
IMAGE(NP, 3)  =  ID 

_ IMAGE(NP.4)  =  INTENSET! 1) _ 


IMAGE(NP , 5)  =  INTENSET(2) 

IMAGE(NP,6)  =  INTENSET(3) 

IMAGE(NP , 7 )  =  INTENSET(4) 

IMAGE(NP,8)  =  INTENSET( 5 ) 

IMAGE(NP, 9)  =  NCSPOT 
IMAGE(NP , 10)  =  NRSPOT 
IMAGE(NP ,  11 )  =  INTENSES(l) 

IMAGE(HP,12)  =  INTENSES(2) 

IMAGE(NP, 13)  =  INTENSES( 3) 

END  IF 

C...Skip  next  next  record  as  it  war  as  a  calib.  point,  too. 

READ(7, 10)  LAT, LON.NEAST,.  3, ID, NCTM , NPTM , 

+  (INTENSET(N),N=1, 5), NCSPOT, NRSPOT, 

+  (INTENSES(N) ,N=1, 3) 

END  IF 
END  DO 

RETURN 

END 

Q********** ****************************** *******************k *********** 

SUBROUTINE  REGRESS( X , Y , SIGMAY , NPTS , NTERMS , M , MODE , YFIT , AO , A , 

+  SIGMAO , SIGMAA , R , RMUL , CHISQR , FTEST) 

COMMON  /DATASET/  XT( 3000 , 7 ) , IMAGE( 3000, 13) 

DIMENSION  X(2000) , Y( 2000) , SIGMAY( 2000) , M( 10) , YFIT( 2000) , A( 10) , 

+  SIGMAA( 10) , R( 10) 

DIMENSION  WEIGHT (2000) ,  XMEAN(IO),  SIGMAX(IO),  ARRAY(10,10) 
DIMENSION  INDEX(IO)  Iscratch  space  for  matrix  inversion  routine 

C. . .INITIALIZE  SUMS  AND  ARRAYS 
11  SUM  =  0. 

YMEAN  =  0. 

SIGMA  =  0. 

CHISQ  =  0. 

RMUL  =  0. 

DO  17  I  =  1,  NPTS 
17  YFIT(I)  =  0. 

21  DO  28  J  =  1,  NTERMS 
XMEAN(J)  =  0. 

SIGMAX(J)  =  0. 

DO  28  K=1 ,  NTERMS 
28  ARRAY(J,K)  =  0. 

C. . .ACCUMULATE  WEIGHTS 

30  DO  50  1=1, NPTS 

31  IF  (MODE)  32,37,39 

32  IF  ( Y( I ) >  35,  37,  33 

33  WEIGHT(I)  =  l./(-Y(I)) 

GO  TO  41 

35  WEIGHT(I)  =  1./  ( — Y ( I ) ) 

GO  TO  41 

37  WEIGHT(I)  =  1. 

GO  TO  41 

39  WEIGHT(I)  =  l./SIGMAY(I)**2 
41  SUM  =  SUM  +  WEIGHT(I) 

YMEAN  =  YMEAN  +  WEIGHT(I)*Y(I) 

DO  44  J  =  1,  NTERMS 

44  XMEAN(J)  =  XMEAN(J)  +  WEIGHT(I)*FCTN(X,I, J,M) 

50  CONTINUE 


51  YMEAN  =  YMEAN/SUM 
DO  53  J=1 , NTERMS 
53  XMEAN(J)  =  XMEAN( J)/SUM 
FNPTS  =  NPTS 
WMEAN  =  SUM  /  FNPTS 
DO  57  1=1,  NPTS 

57  WEIGHT  (I)  =  WEIGHT  (I)  /WMEAN 

C  ACCUMULATE  MATRICES  R  AND  ARRAY 

61  DO  67  1=1,  NPTS 

SIGMA  =  SIGMA  +  WEIGHT(I)*(Y(I)  -  YMEAN)**2 
DO  67  J=l,  NTERMS 


FCV  =  FCTN(X, I ,  J ,  M) 


SIGMAX(J)  =  SIGMAX(J)  +  WEIGHT  ( I )*(FCTN(X, I , J , M)  -  XMEAN(J))**2 
R(J)  =  R(J)  +  WEIGHT(I )*(FCTN(X, I , J , M)-XMEAN( J) )*( Y( I ) -YMEAN) 

DO  67  K-l,  J 

67  ARRAY(J,K)  =  ARRAY ( J , K ) +WEIGHT ( I ) *  ( FCTN ( X , I , J , M ) - XMEAN ( J ) ) * 

1  ( FCTN (  X ,  I ,  K ,  M ) -XMEAN ( K ) ) 

71  FREE1  =  NPTS  -  1 

72  SIGMA  =  SQRT(SIGMA/FREE1 ) 

DO  78  J  =  1, NTERMS 

74  SIGMAX(J)  =  SQRT(SIGMAX( J)/FREE1) 

R(J)  =  R(J)/(FREE1*SIGMAX(J)*SIGMA) 

DO  78  K  .  1,J 

ARRAY (J ,  K)  .  ARRAY(J,K)  /  (FREE1*SIGMAX( J)*SIGMAX(K) ) 

78  ARRAY(K, J)  =  ARRAY(J.K) 

C... INVERT  SYMMETRIC  MATRIX 

81  CALL  MATIN1 ( ARRAY , 10 , NTERMS , MDIM , 0 , INDEX , NERROR , DET ) 

IF  (DET)  101,  91,  101 
91  AO  =  0. 

SIGMAO  -0 . 

RMUL  =  0. 

CHISQR  =  0. 

FTEST  =  0. 

GO  TO  150 

C. .  .CALCULATE  COEFFICIENTS,  FIT,  AND  CHI  SQUARE 

101  AO  =  YMEAN 

102  DO  108  J.l,  NTERMS 
DO  104  K*l,  NTERMS 

104  A( J )  =  A( J )  +  R(K)  *  ARRAY( J ,K) 

105  A( J )  =  A(J)  *  SIGMA/ SIGMAX(J) 

106  AO  =  AO  -  A(J)*XMEAN( J) 

107  DO  108  1=1,  NPTS 

108  YFIT(I)  =  YFIT(I)  +  A( J )*FCTN(X, I , J , M) 

111  DO  113  1=1,  NPTS 

YFTT(T)  =  YFIT(T)  +  AO 

113  CHISQ  =  CHISQ  +  WEIGHT(I)*(Y(I)  -  YFIT(I))**2 
FREEN  =  NPTS  -  NTERMS  -  1 
115  CHISQR  =  CHISQ*WMEAN/FREEN 

C  CALCULATE  UNCERTAINTIES 

121  IF  (MODE)  122,  124,  122 

122  VARNCE  =  1. /WMEAN 
GO  TO  131 


124  VARNCE  =  CHISQR 

131  DO  133  J=l,  NTERMS 

132  STGMAA(J)  =  ARRAY(J.J)  *  VARNCE  /  (FREE1*SIGMAX( J)**2) 

133  RMUL  =  RMUL  +  A(J)  *  R(J)  *  SIGMAX( J )/SIGMA 
FREEJ  =  NTERMS 

135  FTEST  =  (RMUL/ FREEJ)  /  ( ( 1 , -RMUL) /FREEN) 

136  RMUL  =  SORT  (RMUL) 

141  SIGMAO  =  VARNCE  /  FNPTS 
DO  145  J=l,  NTERMS 
DO  145  K=1 ,  NTERMS 

145  SIGMAO  =  SIGMAO  +  VARNCE*XMEAN(  J)*XMF,AN(K)*ARRAY(  J  ,K)  / 
1  (FREE1*SIGMAX( J)*SIGMAX(K) ) 

146  SIGMAO  =  SORT  (SIGMAO) 

150  RETURN 

END 


FUNCTION  FCTN(X, I , J , M) 

COMMON  /DATASET/  XT(3000, 7) , IMAGE(3000, 13) 
DIMENSION  X(l),  M ( 1 ) 

IF  (J  .LE.  7)  THEN 
FCTN  =  XT(I , J) 

ELSE 

WRITE(6, 10)  J 

10  F0RMAT('0! !! SCREW  UP  SOMEWHERE!!!',/, 

+  'In  FCTN.  J  =' ,13, '  Check  NTERMS.') 
WRITE(2, 10)  J 
STOP 
END  IF 
RETURN 
END 


SUBROUTINE  SUMMARY (AO , A , SIGMAO , SIGMAA , R , RMUL) 

C...This  subroutine  prints  out  a  3  line  summary  to  the  analysis  summary  file 
C  according  to  the  following  format 


c 

record  1  contents 

data  type 

1st  byte 

#  bytes 

c 

date 

char*9 

1 

9 

c 

time 

char*8 

10 

8 

c 

calibration  type 

char*4 

18 

4 

c 

image  file  name  1 

char*40 

22 

40 

c 

image  type  1 

char*4 

62 

4 

c 

initial  element 

integer*4 

66 

4 

c 

last  element 

integer*4 

70 

4 

c 

initial  line 

integer*4 

74 

4 

C 

last  line 

integer^ 

78 

4 

c 

image  file  name  2 

char*40 

82 

40 

c 

image  type  2 

char*4 

122 

4 

c 

initial  element 

integer*4 

126 

4 

c 

last  element 

integer*4 

130 

4 

c 

initial  line 

integer^ 

134 

4 

c 

last  line 

integer*4 

138 

4 

c 

bands  used 

F8.0 

142 

8 

c 

Linf  (1-7) 

7(F7 . 2) 

150 

49 

c 

dmin 

F7.2 

199 

7 

c 

dmax 

F7.2 

206 

7 

c 

(A-A7) 

8(F7 . 2) 

213 

56 

c 

(EA-EA7) 

8(F7 . 2) 

269 

56 

C 

r' s( 1-7 ) 

F7.2 

325 

7 

C 

rmul 

F7.2 

332 

7 

c 

calib  mean 

F7.2 

339 

7 

c 

calib  rms 

It 

346 

7 

c 

cal  fitted  mean 

11 

353 

7 

c 

ecal  fit  mean 

!» 

360 

7 

c 

cal  fitted  sigma 

II 

367 

7 

c 

ecal  fit  sigma 

It 

374 

7 

c 

test  mean 

It 

331 

7 

c 

test  rms 

II 

388 

7 

C 

test  fitted  mean 

11 

395 

7 

c 

etest  fit  mean 

If 

402 

7 

c 

test  fitted  sigma 

II 

409 

7 

c 

etest  fit  sigma 

It 

416 

7 

c 

#  calib.  pts. 

II 

423 

7 

c 

#  test  pts. 

It 

430 

7 

c 

avg.  per  cent  error 

11 

437 

7 

INCLUDE  'USERSDISK: [ BATH Y. SOURCE] BATH. INCLUDE' 

CHARACTER*9  ADATE 
CHARACTER*8  ATIME,  BLANK 
DATA  BLANK/'  '/ 

DIMENSION  A( 10) , SIGMAA( 10),R(10) 

REAL*4  KREC(50) ,LREC(50) 

C...Open  the  file  for  appending 

OPEN ( UNIT= 1 5 , FI LE= ' USER$DI SK : [ THFAY . TEitRI . EXEC ] SUMMARY . DBAS ' , 
+  STATUS= ' OLD' , ACCESS* ' APPEND ' ) 

0PEN(UNIT=16 , FILE= ' USERSDISK: [THFAY. TERRI . EXEC] SUMMARY. LIS' , 

+  STATUS='OLD' , ACCESS*' APPEND' ) 

C...get  date  and  time 
CALL  DATE (ADATE) 

CALL  TIME(ATIME) 

C...Set  "bands  used"  word,  first  for  TM  then  for  SPOT 
DO  N  =  0,NTM-1 

KREC(l)  =  KREC(l)  ♦  (N+1)*(10**N) 

END  DO 

DO  N  =  O.NSPOT-l 

KREC(l)  =  KREC(l)  +  (N+l)*(10**(N+4)) 

END  DO 

C... Store  the  L  infinities 
DO  N  =  1,7 

KREC( 1+N)  =  LINF(N) 

END  DO 

C... Store  min.  and  max.  depth  allowed 
KREC(9)  =  DMIN 
KREC(IO)  =  DMAX 

C...Save  the  fitted  constants  and  their  errors 
DO  N  =  l.NTERMS 
KREC(11+N)  =  A(N) 

KREC( 19+N)  =  SIGMAA(N) 

END  DO 

KREC(ll)  =  AO 
KREC(19)  =  SIGMAO 


C...Nov  fill  up  the  third  record 

C... Store  the  correlation  coefficients 
DO  N  =  l.NTERMS 
LREC(N)  =  R(N^ 

END  DO 

LREC ( 8 )  =  RMUL 

C...Get  residual  mean  and  rms  from  HBOOK  and  store 
LREC(9)  =  HSTATI(20,1)  Icalib.  resid.  mean 
LREC ( 10)  =  HSTATI(20, 2)  !calib.  resid.  rms 
LREC(15)  =  HSTATI(34, 1)  !test  resid.  mean 
LREC( 16)  =  HSTATI(34, 2)  !test  resid.  rms 

C... Store  Gaussian  params.  to  calib.  residuals 
LREC(ll)  =  AVC  ! fitted  mean 

LREC(12)  =  SIGC( 2 )  !std.  dev.  of  mean 

LREC(13)  =  SDC  ! fitted  sigma 

LREC(14)  =  SIGC(3)  !std.  dev.  of  sigma 

C... Store  Gaussian  params.  to  test  residuals 
LREC( 17 )  =  AVI 

LREC( 18)  =  SIGT(2) 

LREC(19)  =  SDT 

LREC(20)  =  SIGT(3) 

C... Extract  number  of  calibration  and  test  points  from  histo  info 
CALL  HNOF,NT(20, LI)  !#  of  entries  in  histo  #20 

CALL  HN0ENT( 34 , L2)  !#  of  entries  in  histo  #34 

LREC(21)  =  FLOAT (LI) 

LREC(22)  =  FLOAT (L2) 

C...Per  Cent  error  in  test  points 
LREC(23)  =  HSTATI(31 , 1) 


VRITE( 15,10)  ADATE , ATIME , CALTYPE , IMAGEFILE1 , IMAGETYPE1 , IET , LET , 
+  ILT, LLT, IMAGEFILE2 , IMAGETYPE2 , IES , LES , 

+  ILS, LLS, (KREC(N) , N=1 , 26) , (LREC(N) , N=1 , 23) 

WRITE(16,25)  ADATE, ATIME, CALTYPE 
VRITE( 16,26)  IMAGEFILE1 , IMAGETYPE1 , IET, LET, ILT, LLT 
VRITE( 16 , 26 )  IMAGEFILE2 , IMAGETYPE2 , IES , LES , ILS , LLS 
WRITE( 16,27)  (KREC(N) ,N=1 , 13) 

WRITE(16,28)  (KREC(N) ,N=14 , 26) 

WRITE(16,28)  (LREC(N) ,N=1 , 13) 

WRITE(16,29)  (LREC(N) ,N=14,23) 

WRITE(16,*) 

VRITE(16,*) 

10  FORMAT ( 1H  , 5A, 414 , 2A, 414 , F8 . 0, 25F7 . 2 , 23F7 . 2 ) 

25  FORMAT ( / , 3A) 

26  F0RMAT(2A,4I4) 

27  F0RMAT(F8.0, 12F7 . 2) 

28  FORMAT(13F7.2) 

29  F0RMAT( 10F7 . 2) 

RETURN 

END 


£*★**************************«***************★********★***************** 


SUBROUTINE  LINE_ELEM 

INCLUDE  'USER$DISK: (BATHY. SOURCE] BATH. INCLUDE' 
CHARACTER*!  RESPONSE 


VRITE(6,411)  IET, LET, ILT, LLT 
URITE(6, *) 

VRITE(6,*)  'Do  you  wish  to  make  changes?  (Y/N)' 
ACCEPT  15,  RESPONSE 

IF  (RESPONSE  .EQ.  'Y'  .OR.  RESPONSE  .EQ.  'y')  then 
WRITE(6,*)  'Enter  Initial  Elem  and  Last  Elem:' 
ACCEPT  *,  IET, LET 

VRITE(6,*)  'Enter  Initial  Line  and  Last  Line:' 
ACCEPT  *,  ILT, LLT 
ELSE 

VRITE(6,*)  'No  TM  line/element  changes  made.' 
END  IF 

WRITE(6 , 412 )  IES , LES , ILS , LLS 

WRITE(6,*)  'Do  you  wish  to  make  changes?  (Y/N)' 
ACCEPT  15,  RESPONSE 

IF  (RESPONSE  .EQ.  'Y'  .OR.  RESPONSE  .EQ.  'y')  THEN 
VRITE(6,*)  'Enter  Initial  Elem  and  Last  Elem:' 
ACCEPT  *,  IES, LES 

VRITE(6 , *)  'Enter  Initial  Line  and  Last  Line:' 
ACCEPT  *,  ILS, LLS 
ELSE 

VRITE(6,*)  'No  SPOT  line/element  changes  made.' 
END  IF 


15  FORMAT(A) 

411  FORMAT( 'OIni t ial  Element  TM  =',I5,' 

+  '  Initial  Line  TM  =',I5,' 

412  F0RMAT(' OIni t ial  Element  SPOT  =',I5,' 

+  '  Initial  Line  SPOT  =',I5,' 


Last  Element  TM  =',I5,/, 
Last  Line  TM  =' ,15,/) 
Last  Element  SPOT  = ' , 15 , / , 
Last  Line  SPOT  =' ,15,/) 


RETURN 

END 


o  o 


PROGRAM  MODSIEVE 

....This  program  performs  a  MOD  sieve  on  an  NOS  data  file; 
....that  is,  every  Nth  point  is  accepted  with  a  MOD  of  N. 

INTEGER  LATD , LATM , LGD , LGM , MODR 

INTEGER*4  TMSCAN ,TMELEM , SPOTSCAN , SPOTELEM 

DOUBLE  PRECISION  EAS.NOR 
REAL  DEPTH, RLATS,RLGS 

CHARACTER*132  HEADING 

CHARACTER*^  INFILE,  OUTFILE 

VRITE(6,*) 

VRITE(6,*) 

WRITE (  6,  *)  '  * 

VRITE(6,*)  'This  program  performs  a  MOD  sieve  on  ' 
WRITE(6,*)  'an  NOS  data  file.  For  example,  with  a' 
WRITE(6,*)  'MOD  of  N,  every  Nth  point  is  accepted.' 
WRITE (  6  f  *)  f  ik*****^***** icidt  iddrk'k'k * 

VRITE(6 , *) 

VRITE(6,*)  'Enter  NOS  input  file  name:' 

ACCEPT  20,  INFILE 

VRITE(6,*)  'Enter  output  file  name:' 

ACCEPT  20,  OUTFILE 
20  FORMAT(A) 

URITE(6,*)  'Enter  the  increment:' 

VRITE(6,*)  '(for  example,  an  increment  of  100' 
VRITE(6,*)  '  means  every  100th  point  is  accepted)' 
READ(5,*)  MODR 

0PEN( 1 1 , FILE=INFILE , STATUS= ' OLD' , READONLY) 

OPEN( 1 2 , FILE=OUTFILE , STATUS* ' NEW' ) 

READ(1 1,500)  HEADING 
WRITE( 12 , 500)  HEADING 


DO  1=1,336000 

READ(  1 1 , 1000 ,  END=100 )  LATD ,  LATM ,  RUTS , LGD,  LGM , RLGS , 

+  EAS, NOR, DEPTH, TMELEM, TMSCAN, 

+  SPOTELEM, SPOTSCAN 

IF  (M0D(I,M0DR)  .EQ.  1)  THEN  !Take  every  "MODR" th  point. 
VRITE(  12 , 1000)  UTD ,  UTM , RUTS ,  LGD,  LGM , RLGS , 

+  EAS, NOR, DEPTH, TMELEM, TMSCAN, 

+  SPOTELEM, SPOTSCAN 

END  IF 

END  DO 

100  CONTINUE 
500  FORMAT (Al 32) 

1000  FORMAT ( IX, 12 ,I2,F5.2,1X,I3,I2,F5.2,2X,F10.0,2X,F10.0,2X, 

+  F7.1,2X,I6,2X,I6,2X,I6,2X,I6) 


END 


o  o 


PROGRAM  OVLBATHY 

Bathymetry  on  Overlay  data  (i.e.,  a  coregistered  image  of  TM  and 
SPOT  data). 

PARAMETER  (N=512) 

BYTE  AIM(4500, 8) 

INTEGER  IMAGE( 4500 , 8 ) , LTM<  5 ) , LSPOT ( 3 ) 

REAL  ATM(4),ASP0T(3),A0 

BYTE  BATHY(4500) 

INTEGER  M,P,Q,I,J,N3,N1,N2,Z 

CHARACTER*40  OVLINFILE, OUTFILE 

CHARACTERM32  COMMENT 


WRITE (6 , *)  '******************************' 

VRITE(6,*)  '*  *' 

WRITE(6 , *)  '*  BATHYMETRY  *' 

WRITE(6, *)  '*  *' 

VRXTE(  6  }  *)  /  *******‘***************'********/ 

WRITE(6,*) 

WRITE(6,*)  'This  program  is  designed  to  handle  data' 

WRITE(6,*)  'in  the  following  format:  ' 

VRITE(6, *) 

WRITE(6,*)  '  For  Overlay  data,  the  input  file  must  be  ' 
WRITE(6,»)  '  TM  onto  SPOT  with  bands  in  the  following  order:' 
VRITE(6,*)  '  SPOT  1,2,3,  then  TM  1,2, 3, 4, 5.  ' 

WRITE(6 , *) 


LUN3  =  0 

CALL  FILE  0PEN( LUN3 , OVLINFILE) 


VRITE(6,*) 

WRITE(6,*)  'Enter  output  file:' 

READ(5 , 50)  OUTFILE 
50  FORMAT (A40) 

OPEN(UNIT=15, FILE=OUTFILE , STATUS= ' NEW' , 

+  FORM* ' UNFORMATTED ' , ACCESS= ' DIRECT' ,RECL=128) 

C .  READ  HEADER  OF  OVLINFILE 

READ( LUN3 , REC= 1 )  NBIH , NBPR , IL , LL , IE , LE , NC , IDESC 

C .  WRITE  HEADER  OF  THE  OUTPUT  FILE.  BATHY  IMAGES  WILL  HAVE  ONLY  ONE  CHANNEL. 

WRITE( 15 , REC= 1 )  NBIH , NBPR , IL , LL , IE , LE , 1 , IDESC 

WRITE(6,*)  'What  comments  would  you  like  written  to  the' 

WRITE(6,*)  'output  file?  Please  limit  them  to  132  characters.' 

READ(5 , 200)  COMMENT 
WRITE( 15,REC=2)  COMMENT 
200  FORMAT(A) 

CALL  GET_LINFS(LTM, LSPOT) 

CALL  GET  C0EFF(ATM, ASPOT, AO) 


no  o  non 


NREC  *  3 


!  INPUT  DATA  FOR  LINE  1  CHANNEL  1  BEGINS  IN  THE  THIRD 
!  512-BYTE  BLOCK  OF  THE  INPUT  FILE 
NREC3  -  3  !  CONTROL  FOR  WRITING  TO  THE  CORRECT  POSITION  IN  THE 

!  OUTPUT  FILE 

NL  =  LL-IL+ 1  !  TOTAL  NUMBER  OF  LINES. 

NE  =  LE-IE+1  !  TOTAL  NUMBER  OF  ELEMENTS. 

MAXR  =  JNT( (NBPR*NL*NC)/N+2 )  !  NUMBER  OF  BLOCKS  IN  INFILE. 

MAXZ  =  INT(NBPR/N)  !  NUMBER  OF  BLOCKS  PER  INPUT  LINE  (ONE  CHANNEL). 

MAXREC  =  MAXR-(NC*MAXZ)+1 


DO  WHILE  (NREC  .LE.  MAXREC)  ! BLOCK  MAXREC  IS  START  OF  LAST  LINE 

!  CHANNEL  1 . 

READS  EACH  512-BYTE  BLOCK  OF  THE  INPUT  FILE  AND  STORES  IT  IN  THE 
APPROPRIATE  BYTE  ARRAY.  ALL  THE  INFORMATION  FOR  EVERY  CHANNEL  FOR  ONE 
LINE  OF  INPUT  DATA  IS  READ  HERE. 

DO  1=  1,NC 

DO  Z  =  O.MAXZ-l 
N1  =  ( 512*Z) +1 
N2  =  512*(Z+1) 

IF(N2.GT.NE)  N2  =  NE 
NREC2  =  NPEC+Z+((I-1)*MAXZ) 

READ( LUN3 , REC=NREC2 )  (AIM(N3,I),  N3=N1,N2) 

END  DO 
END  DO 

CONVERTS  BYTES  TO  INTEGER*4  AND  CHANGES  NEGATIVES  TO  POSITIVES. 


DO  I  =  1  ,NC 
DO  NCOL  =  1,NE 

IMAGE(NCOL,I)  =  AIM(NCOL,I) 

IF  (IMAGE(NCOL, I )  .LT.  0) 

IMAGE(NCOL.I)  =  IMAGE(NCOL, I )  +  256 
END  DO 
END  DO 


CALL  BIGO( IMAGE, BATHY, AO, ATM, ASPOT,NE,LTM,LSPOT)  ! DOING  BATHYMETRY 

CONVERTS  POSITIVES  BIGGER  THAN  128  TO  NEGATIVES  FOR  STORAGE  AS  BYTES  IN 
BYTE  ARRAY  BATHY. 

DO  J  =  1 ,NE 

IF  (BATHY(J)  .GE.  128) 

BATHY(J)  =  BATHY(J)  -  256 

END  DO 

C . WRITE  TO  OUTPUT  FILE  THE  CALCULATED  BATHYMETRIC  VALUES. 

DO  Z  =  0,MAXZ-1 
Nl  =  (512AZ)+1 
N2  =  512*(Z+1) 

IF(N2 .GT.NE)  N2  =  NE 

WRITE( 15 , REC=NREC3+Z)  ( BATHY (N3) ,  N3=N1,N2) 

END  DO 

NREC3  =  NREC3  +  MAXZ  ! Increment  NREC3  to  skip  to  the  first 
_ Ihlock  of  next  line.  _ 


o  o  o 


INCREMENT  NREC  SO  THAT  THE  PROGRAM  READS  THE  GRAY  LEVELS  FOR  THE  NEXT 
SCAN  LINE.  REMEMBER,  NREC  MUST  BE  ADVANCED  TO  SKIP  ALL  RECORDS 
CONTAINING  CHANNELS  FOR  THE  SCAN  LINE  BEING  PROCESSED. 

NREC  =  NREC  +  (NC*MAXZ) 

END  DO 


WRITE(6 , *) 

VRITE( 6 , *) 

VRITE(6,*) 

VRITE(6,*) 

VRITE(6,*) 

VRITE(6 , * ) 

END 

SUBROUTINE  BIGD( IMAGE , BATHY , AO , ATM , ASPOT , NE , LTM , LSPOT ) 

C . THIS  SUBROUTINE  CALCULATES  THE  BATYMETRY  VALUES  FOR  EACH  ELEMENT. 

INTEGER  I MAGE ( 45G0 , 8 ) , LTM ( 5 ) , LSPOT ( 3 ) , NE 
REAL  ATM(4) ,ASPOT(3) , AO 
BYTE  BATHY(4500) 

DO  400  J  =  1,NE 

IF  ( (IMAGE (J ,8)  -  LTM(5) )  .GT.  0)  THEN 
BATHY  (J)  =  250 

ELSE  IF  ( (IMAGE (J, 4)  -  LTM(l))  .GT.  0)  THEN 
BATHY(J)  =  NINT(A0  + 

ASPOT(1)*ALOG(MAX(FLOAT(IMAGE( J , 1 )-LSPOT( 1 ) ) , 1 . 0) )  + 
ASPOT(2)*ALOG(MAX(FLOAT(IMAGE( J , 2 )-LSPOT( 2) ) , 1 . 0) )  + 
ASPOT(3)*ALOG(MAX(FLOAT(IMAGE( J , 3)-LSP0T( 3) ) , 1 . 0) )  + 
ATM( 1 )*ALOG(MAX(FLOAT(IMAGE( J , 4)-LTM( 1 ) ) , 1 .0) )  + 

ATM( 2 )*ALOG( MAX(FLOAT( IMAGE (J , 6)-LTM(2 ) ) , 1 .0) )  + 
ATM(3)*AL0G(MAX(FL0AT(IMAGE(J,7)-LTM(3)),1.0))  * 
ATM(4)*AL0G(MAX(FL0AT(IMAGE( J ,8)-LTM(4) ) ,1.0))) 

ELSE 

BATHY(J)  =  255 
END  IF 
400  CONTINUE 
RETURN 
END 


'  *  *' 

’*  BATHYMETRY  COMPLETED  *' 

'  *  * ' 

t  •k'k'k’k  f 


C******  ***★★★★★★★**★***  it  it  it  it  ★  ★★★★*********★★*★***  *★★*★***  ******  ******* 

SUBROUTINE  FILE_0PEN(LUN3,0VLlNFILE) 

INTEGER  LUN3 
CHARACTER*40  OVI.INFILE 

VRITE(6 , *)  'Enter  the  overlay  input  file:' 

LUN3  =  10 

READ  (5,100)  OVLINFILE 

0PEN(UNIT=LUN3 , FILE=OVLINFILE, STATUS=' OLD' , IOSTAT-IOSl , 

+  READONLY, FORM-' UNFORMATTED' , ACCESS- ' DIRECT' ,RECL=12C) 


100  FORMAT (A40) 


RETURN 

END 


C*** **********  ********************************************************** 
SUBROUTINE  GET_LINFS(LTM, LSPOT) 

INTEGER  LTM(5) ,LSP0T(3) 


VRITE(6 , *) 

URITE(6,*) 

WRITE(6 , *) 

WRITE(6,*)  'Enter  L  infinities  in  the  following  order:' 
VRITE(6,*)  'SPOT  bands  1-3' 

WRITE(6, *)  'TM  bands  1-5' 

VRITE(6,*) 

VRITE(6,*) 

DO  M=1 , 3 

URITE(6, 75)  M 

VRITE(6,*)  '(If  no  L  infinity,  enter  0)' 

READ(5, *)  LSPOT(M) 

END  DO 
DO  M=1 , 5 

URITE(6, 75)  M 

VRITE(6,*)  '(If  no  L  infinity,  enter  0)' 

READ(5 , *)  LTM(M) 

END  DO 
VRITE(6,*) 

VRITE(6,*) 

VRITE<6,*) 


75  F0RMAT( IX, ' Enter  L  infinity  for  band  ',11) 

RETURN 

END 


C* ******** *********************************************** *************** 

SUBROUTINE  GET_C0EFF( ATM , ASPOT , AO ) 

REAL  ATM(4) ,ASP0T(3) , AO 

VRITE(6,*) 

URITE(b, *) 

VRITE(6,*) 

VRITE(6,*)  'Please  enter  AO:' 

READ(5, *)  AO 
URITE(6, *) 

URITE(6,*)  'Enter  remaining  coefficients  in  the  following  order:' 
WRITE(6, *)  ' ATM(1 )-ATM(4)  for  TM  bands  1-4' 

URITE(6,*)  ' ASPOT ( 1 ) -ASPOT ( 3 )  for  SPOT  bands  1-3' 

WRITE(6, *) 

WRITE(6,*) 


DO  M=l,4 

VRITE(6 , 100)  M 

VRITE(6,*)  '(If  no  coefficient,  enter  0)' 
READ(5,*)  ATM(M) 

END  DO 
DO  M=1 , 3 

VRITE(6 , 200)  M 

VRITE(6,*)  '(If  no  coefficient,  enter  0)' 
READ(5,*)  ASPOT(M) 

END  DO 
VRITE(6 , *) 

VRITE(6 , *) 


100  F0RMAT(1X, 'Enter  coefficient  ATM( ' ,11 , ' ) ' ) 
200  F0RMAT(1X, 'Enter  coefficient  ASP0T( ' , II , ' ) ' ) 
RETURN 
END 


PROGRAM  SPOTBATHY 
Bathymetry  on  SPOT  data. 


PARAMETER  (N=512) 

BYTE  AIM(4500, 3) 

INTEGER  IMAGE(4500, 3) , L( 3) 

REAL  A(0: 2) 

BYTE  BATH Y( 4500) 

INTEGER  M, P,Q, I , J ,N3 ,N1 , N2  ,Z 
CHARACTER*40  SPOTINFILE.OUTFILE 
CHARACTER*132  COMMENT 


WRITE(6,*) 
VRITE(6 , *) 
WRITE(6,*) 
WRITE(6,*) 
WRITE(6,*) 
WRITE(6,*) 

URITE(6, *) 
WRITE(6,*) 
WRITE(6,*) 
WRTTE(6,*) 

wrkf<6,*) 

WRITE(6,*) 


9  f 


'  * 

' *  BATHYMETRY 

'  * 


*' 
+  * 


'This  program  is  designed  to  handle  data' 
'in  the  following  format:' 

'  For  SPOT  data  the  inpuc  file  mast  be' 

'  bands  1,  2,  3,  in  that  order.' 


LUN2  =  0 

CALL  FILEOPEN ( LUN2 , SPOT INFILE) 


WRITE(6,*) 

WRITE(6,*)  'Enter  output  file:' 

READ(5 , 50)  OUTFILE 
50  FORMAT (A40) 

0PEN(UNIT«15,FILE=0UTFILE, STATUS* 'NEW' , 

+  F0RM=' UNFORMATTED' ,ACCESS=' DIRECT' ,RECL=128) 

C . Read  header  of  SPOTINFILE. 

READ( LUN2 , REC= 1 )  NBIH , NBPR , I L , LL , I E , LE , NC , I DESC 


C .  Write  header  of  the  output  file,  which  will  have  only  one  channel. 

VRITE(15,REC=1)  NBIE,NBPR,IL,LL,IE,LE,1,IDESC 

WRITE(6,*)  'What  comments  would  you  like  written  to  the' 

WRITE(6,*)  'output  file?  Please  limit  them  to  132  characters.' 
READ(5,200)  COMMENT 
WRITE( 15, REC=2 )  COMMENT 
200  FORMAT(A) 

WRITE(6, *) 

WRITE(6,*) 

WRITE(6,*) 

WRITE(6,*)  'Enter  L  infinities  in  the  following  order:' 

WRITE(6,*)  'SPOT  bands  1-3' 

WRITE(6,*) 

WRITE(6,*) 

WRITE(6,*) 


o  o  o 


DO  M=1 , 3 

WRITE(6, 75)  M 

WRITE(6,*)  '(If  no  L  infinity,  enter  0)' 

READ(5, *)  L(M) 

END  DO 

75  F0RMAT( IX, ' Enter  L  infinity  for  band  ',11) 

WRITE(6 ,  *) 

VRITE(6,*) 

WRITE(6 , *) 

WRITE(6,*) 

WRITE(6 , *) 

WRITE(6,*)  'Enter  coefficients  in  the  following  order:' 

VRITE(6,*)  'AO' 

WRITE(6,*)  ' A1-A2  for  SPOT  bands  1-2' 

WRITE(6 , *) 

WRITE(6 , *) 

DO  M=0, 2 

WRITE(6, 100)  M 

WRITE(6,*)  '(If  no  coefficient,  enter  0)' 

READ(5,*)  A(M) 

END  DO 

100  F0RMAT( IX, 'Enter  coefficient  A(',I1,')') 

NREC  =  3  !  INPUT  DATA  FOR  LINE  1  CHANNEL  1  BEGINS  IN  THE 

!  THIRD  512-BYTE  BLOCK  OF  THE  INPUT  FILE 
NREC 3  *  3  !  CONTROL  FOR  WRITING  TO  THE  CORRECT  POSITION  IN  THE 

!  OUTPUT  FILE 

NL  =  LL-IL+1  !  TOTAL  NUMBER  OF  LINES. 

NE  =  LE-IE+1  !  TOTAL  NUMBER  OF  ELEMENTS. 

MAXR  =  INT( (NBPR*NL*NC)/N+2 )  !  NUMBER  OF  BLOCKS  IN  INFILE. 

MAXZ  =  INT(NBPR/N)  !  NUMBER  OF  BLOCKS  PER  INPUT  LINE  (ONE  CHANNEL). 

MAXREC  =  MAXR-(NC*MAXZ)+1 


DO  WHILE  (NREC  .LE.  MAXREC)  ! BLOCK  MAXREC  IS  START  OF  LAST  LINE 

!  CHANNEL  1. 

READ  EACH  512-BYTE  BLOCK  OF  THE  INPUT  FILE  AND  STORE  IT  IN  THE 
APPROPRIATE  BYTE  ARRAY.  ALL  THE  INFORMATION  FOR  EVERY  CHANNEL 
FOR  ONE  LINE  OF  INPUT  DATA  IS  READ  HERE. 

DO  I-  1 ,NC 

DO  Z  =  0, MAXZ-1 
N1  =  (512*Z)+1 
N2  =  512*(Z+1) 

IF(N2 .GT.NE)  N2  =  NE 
NREC2  =  NREC+Z+((I-1)*MAXZ) 

READ( LUN2 , REC=NREC2 )  (AIM(N3,I),  N3=N1,N2) 

END  DO 
END  DO 

C . CONVERTS  BYTES  TO  INTEGER**  AND  CHANGES  NEGATIVES  TO  POSITIVES. 


DO  I  =  1 ,NC 
DO  NCOL  =  1 , NE 

IMAGE(NCOL, I )  =  AIM(NCOL,I) 

IF  ( IMAGE (NCCL, I )  .LT.  0) 

+  IMAGE(NCOL, I )  =  IMAGE(NCOL, I )  +  256 


non  o  on 


END  DO 
END  DO 


CALL  BIGD( IMAGE , BATHY , A , NE , L)  ! DOING  BATHYMETRY 

CONVERTS  POSITIVES  BIGGER  THAN  128  TO  NEGATIVES  FOR  STORAGE  AS  BYTES  IN 
BYTE  ARRAY  BATHY. 


DO  J  =  1,NE 

IF  (BATHY(J)  .GE.  128) 

BATHY(J)  *  BATHY(J)  -  256 

END  DO 

WRITE  TO  OUTPUT  FILE  THE  CALCULATED  BATHYMETRIC  VALUES. 

DO  Z  =  O.MAXZ-l 
N1  =  (512*Z)+1 
N2  =  512*(Z+1) 

IF(N2 .GT.NE)  N2  =  NE 

WRITE ( 15, REC=NREC3+Z)  (BATHY(N3) ,  N3=N1,N2) 

END  DO 

NREC3  =  NREC3  +  MAXZ  llncrement  NREC3  to  skip  to  the  first 

! block  of  the  next  line. 


INCREMENT  NREC  SO  THAT  THE  PROGRAM  READS  THE  GRAY  LEVELS  FOR  THE  NEXT 
SCAN  LINE.  REMEMBER,  NREC  MUST  BE  ADVANCED  TO  SKIP  ALL  RECORDS 
CONTAINING  CHANNELS  FOR  THE  SCAN  LINE  BEING  PROCESSED. 

NREC  =  NREC  +  (NC*MAXZ) 

END  DO 


WRITE(6,*) 
WRITE(6,*) 
WRITE(6 , *) 
WRITE(6 , *) 
WRITE(6, *) 
WRITE(6, *) 
END 


'  *  *' 

'*  BATHYMETRY  COMPLETED  *' 
'  *  *' 
7 
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SUBROUTINE  BIGD( IMAGE , BATHY , A , NE , L) 

C . THIS  SUBROUTINE  CALCULATES  THE  BATYMETRY  VALUES  FOR  EACH  ELEMENT. 

INTEGER  IMAGE(4500, 3) , L(3) ,NE 
REAL  A(0: 2) 

BYTE  BATHY(4500) 

DO  400  J  =  1,NE 

IF  ( ( IMAGE( J , 3)  -  L(3) )  .GT.  0)  THEN 
BATHY(J)  =  250 

ELSE  IF  ( (IMAGE(J, 1)  -  L< 1 ) )  .GT.  0)  THEN 
BATHY(J)  =  NINT(A(0)  + 

A( l)*ALOG(MAX(FLOAT(IMAGE( J , 1 )-L( 1) ) ,1.0))  + 
A(2)*AL0G(MAX(FL0AT(IMAGE( J , 2)-L(2) ) , 1.0))) 


FT  CD 

BATHY(J)  =  255 
END  IF 
400  CONTINUE 
RETURN 
END 


SUBROUTINE  FILE_0PEN(LUN2 , SPOTINFILE) 

INTEGER  LUN2 
CHARACTER*40  SPOTINFILE 

VRITE(6, *)  'Enter  SPOT  input  £ile:' 

READ(5, 100)  SPOTINFILE 
LUN2  =  10 

0PEN(UNIT=LUN2 , FILE=SPOTINFILE, STATUS* 'OLD' , I0STAT=I0S1 , 

+  READONLY, FORM=' UNFORMATTED' ,ACCESS=' DIRECT' ,RECL=128) 

100  FORMAT (A40) 


RETURN 

END 


o  o  o  o  o 


PROGRAM  STANDARD 

.This  program  calculates  the  corrections  needed  to  convert  from 
•local  geodetic  system  lat/lon's  to  Vorld  Geodetic  System  1984  (VGS84) 
.lat/lon's.  The  standard  Molodensky  formulas  are  used. 

.Formulae  and  data  are  from  DMA  Techical  Report  8350.2,  30  Sept  87 
.DoD  World  Geodetic  System  1984  (UGS84). 

INTEGER  LATD , LATM , LOND , LONM 

REAL  RLATS,RL0NS  IFractional  seconds 

REAL  DELLAT , DELLON  !Lat/lon  corrections,  in  seconds 

REAL  DLAT, DLON  !lat/lon  to  be  corrected 

REAL  DELH  IGeodetic  height  correction 

REAL  UGSLAT,UGSL0N  ! Corrected  la t/ Ion 

WRITE(6,*)  '"Local  GS"  to  UGS  1984  conversion 
WRJ1'E(6,*)  'STANDARD  MOLODENSKY  FORMULAS' 

WRITE(6, *) 

WRITE(6, *)  'ENTER  A  SAMPLE  POINT  (IN  "LOCAL  GS")' 

WRITE(6,*)  'Enter  lat.  degree  (N+/S-),  minutes,  REAL  seconds:' 
READ(5,*)  LATD, LATM, RLATS 

WRITE(6,*)  'Enter  Ion.  degree  (E+/W-),  minutes,  REAL  seconds:' 
READ(5,*)  LOND, LONM, RLONS 


C . Convert  to  degrees  in  decimal: 

DLAT  =  DECDEG( LATD, LATM, RLATS) 

DLON  =  DECDEG( LOND, LONM, RLONS) 

C . Echo  print: 

VRITE(6, * ) 

VRITE(6, *)  'Lat  (deg, min, sec) :  ', LATD, LATM, RLATS 
WRITE(6,*)  'Lon  (deg, min, sec ) :  ', LOND, LONM, RLONS 
VRITE(6,*) 

WRITE(6 , * )  'Lat  (dec.  degree):  ',DLAT 
WRITE (6,*)  'Lon  (dec.  degree):  ',DL0N 
WRITE(6,*) 

C . Calculate  the  corrections: 

CALL  L0CAL_WGS84 ( DLAT , DLON , DELLAT , DELLON , DELH ) 

C . Write  the  corrections. 

WRITE(6,*)  'Lat/lon  corrections,  in  seconds:  ', DELLAT , DELLON 

WGSLAT  =  DLAT  +  (DELLAT/ 3600. 0) 

WGSLON  =  DLON  +  ( DELLON/ 3600. 0) 

C . Convert  decimal  degrees  to  degrees,  minutes,  REAL  seconds: 

CALL  DMS( WGSLAT, LATD, LATM, RLATS) 

CALL  DMS( WGSLON, LOND, LONM, RLONS) 

C . Echo  print: 

WRITE(6 , *) 

WRITE(6 , *)  ' WGS  lat  (degree):  ' , WGSLAT 
WRITE(6,*)  'WGS  Ion  (degree):  ', WGSLON 
WRITE(6 , *) 

WRITE(6 , *)  'WGS  lat  (deg, min, sec) :  ', LATD, LATM, RLATS 
WRITE(6 , *)  'WGS  Ion  (deg, min, sec) :  ', LOND, LONM, RLONS 
WRITE(6,*) 


END 


Q'k'k'k'k'k'k’kie'k’k’k-k'k-k'kic-k'kit'klrk-k'k'k'kirk'k'kitlrk'k'k'k'k'k'kit'kit'klrk'k'k'k'klrk'k'k-k'k  -kit  -k  -kick 

SUBROUTINE  DMS(L,D,M,S) 

C . Subroutine  DMS  converts  from  decimal  lat/lon  L  to  degree  D, 

C . minute  M,  REAL  seconds  S. 

INTEGER  D,M 
REAL  L,  S 

D  =  INT(L) 

DIFF  =  ABS(L  -  FLOAT(D) ) 

REALMINUTES  =  DIFF  *  60.0 
M  =  INT( REALMINUTES) 

DIFF  =  REALMINUTES  -  FLOAT(M) 

S  =  DIFF  *  60.0 

RETURN 

END 

C**** ********************************************************** 


REAL  FUNCTION  DECDEG(D,M, S) 

C . Convert  latitude/longitude  D,M,S  (in  deg, min, sec)  to  REAL  decimal  degrees. 

C . Only  D  should  carry  the  sign. 

REAL  S,RD 
INTEGER  D,M 

RD  =  FLOAT(D) 

IF  (RD  .LT.  0.)  THEN 

DECDEG  =  -1.0  *  (ABS(RD)  +  FL0AT(M)/60.0  +  S/3600.0) 

ELSE 

DECDEG  =  RD  +  FLOAT(M)/60.0  +  S/3600.0 
ENDIF 

RETURN 

END 

C************************************************************* 


SUBROUTINE  L0CAL_WGS84( DLAT , DLON , DELLAT , DELLON , DELH) 

REAL  DLAT, DLON, DELLAT, DELLON, DELH 

C . Subroutine  to  calculate  corrections  used  to  convert  from  LOCAL  GS  to 

C . VGS  1984.  THE  STANDARD  MOLODENSKY  FORMULAS  ARE  USED. 

C . NOTE:  this  has  not  been  checked  for  elevation  corrections. 

C 

C . Formulae  and  data  from  DMA  Techical  Report  8350.2,  30  Sept  87 

C . DoD  World  Geodetic  System  1984  (WGS84) 

C 

C . To  use  correction  factors  DEL*  (in  seconds),  etc.,  use  these  formulae 

C . where  DLAT,  etc.,  are  in  LOCAL  and  WGSLAT,  etc.,  is  in  WGS84: 

C 

C  WGSLAT  =  DLAT  +  (DELPHI/ 3600.0) 


n  o  o  o 


C  UGSLON  =  DLON  +  (DELLAMBDA/ 3600.0) 


REAL  DELX , DELY , DELZ , DELA , DELF , RN , RM , E2 , A , B , H , E , F 
REAL  DELPHI , DELLAMBDA  lCorrections,  in  seconds. 

REAL  DELHEIGHT 

DATA  H  /  0.0  /  llgnore  geodetic  height. 

C . The  following  is  for  NAD27  Bahamas  (should  be  good  for  Puerto  Rico): 

DATA  DELX, DELY, DELZ  /  -4.0,154.0,178.0  /  !p.  7-22. 

C . The  following  is  Clark  1866  spheroid: 

DATA  DELA, DELF  /  -69 . 4 ,-. 000037264639  /  !p.  7-22. 

DATA  A, F_INVERSE  /  6378206.4,294.9786982  /  !p.  7-12. 


The  following  data  is  for  Puerto  Rico  datum  (p.  7-26)  for  check: 
DATA  DELX, DELY, DELZ  /II . , 72 . , -101 . / 

DATA  DELA, DELF  /-69.4,  -0. 37264639E-4/ 

DATA  A, F_INVERSE  /  6378206.4,294.9786982  /  !p.  7-12. 

F  =  l./F_INVERSE 

SI  =  SIND(1. 0/3600.0) 

B  =  A*( 1-F) 

E2  =  F*(2-F) 

DENOM  =  SQRT(1-E2*(SIND(DLAT)**2)) 

RN  =  A  /  DENOM 

RM  =  A*( 1-E2 )  /  (DEN0M**3) 

DELPHI  =  (  -DELX*SIND(DLAT)*COSD(DLON)  - 
DELY*SIND( DLAT ) *SIND( DLON)  + 

DELZ*C0SD( DLAT )  + 

DELA* ( RN*E2*SIND( DLAT ) *C0SD( DLAT ) ) / A  + 

DELF*(RM*(A/B)  +  RN*(B/A) )*SIND(DLAT)*COSD(DLAT)  )/ 
((RM  +  H)*S1) 

DELLAMBDA  =  ( -DELX*SIND(DLON)  +  DELY*C0SD(DL0N) )  / 

((RN  +  H)*C0SD(DLAT)*S1 ) 

DELHEIGHT  =  DELX*COSD(DUT)*COSD(DLON)  + 

DELY*C0SD( DLAT )*SIND( DLON)  +  DELZ*SIND(DLAT)  - 
DELA*A/RN  +  DELF* (B/ A )*RN*SIND( DLAT )*SIND( DLAT) 

DELLAT  =  DELPHI 
DELLON  =  DELLAMBDA 
DELH  =  DELHEIGHT 

RETURN 

END 


PROGRAM  TMBATHY 

C . TMBATHY  creates  a  bathymetric  image  from  a  raw  TM  image  file. 

PARAMETER  (N=512) 

BYTE  AIM(4500,5) 

INTEGER  IMAGE(4500, 5) ,  L(5) 

REAL  A(0:4) 

BYTE  BATHY(4500) 

INTEGER  M,P,Q,I,J,N3,N1,N2,Z 

CHARACTER*8  SPACE8 
CHARACTER*40  TMINFILE , OUTFILE 
CHARACTER* 132  COMMENTS 


WRITE(6 , *)  ' ****************************** ' 

WRITE(6,*)  '*  *' 

WRITE(6,*)  '*  BATHYMETRY  *' 

VRITE(6,*)  '*  *' 

WRITE ( 6  >  * )  /  ***********************★******' 

VRITE(6 , *) 

VRITE(6,*)  'This  program  is  designed  to  handle  data' 

WRITE(6,*)  'in  the  following  format:' 

URITE(6,*) 

URITE(6 , *)  '  For  TM  data  the  input  file  must  be' 

WRITE(6,*)  '  bands  1,  2,  3,  4,  5,  in  that  order.' 

WRITE(6,*) 

VRITE(6,*) 

URITE(6,*)  'Enter  TM  input  file:' 

READ(5 , 50)  TMINFILE 

0PEN(UNIT=10,  FILE=TMINFILE,  STATUS®'  OLD'  ,  I0STAT=.I0S1 , 

+  READONLY, FORM® 'UNFORMATTED' , ACCESS® ' DIRECT ' ,RECL=128) 

VRITE(6,*) 

VRITE(6,*)  'Enter  output  file:' 

READ(5,50)  OUTFILE 

OPEN (UNIT® 15, FILE=OUTFILE, STATUS® ' NEW' , 

+  FORM® 'UNFORMATTED' , ACCESS®' DIRECT' ,RECL=128) 

C . Read  header  of  TM  input  file. 

READ( 10 , REC=1)  NBIH , NBPR , IL , LL , IE , LE , NC , IDESC 

C . Write  header  to  the  outut  file.  Bathymetry  images  will  have  1  channel. 

WRITE(15,REC=1)  NBIH, NBPR, IL, LL, IE, LE, 1 , IDESC 

VRITE(6 , *) 

\fRITE(6,*)  'What  comments  would  you  like  written  to  the' 

WRITE(6,*)  'output  file?  Limi^t  to  132  characters.' 

READ(5 , 50)  COMMENTS 
50  FORMAT(A) 


VRITE(6,*) 

VRITE(6,*> 

VRITE(6,*) 

VRITE(6,*)  'Enter  L  infinities  in  the  following  order:' 
VRITE(6,*)  'TM  bands  1-5' 


o  o  o  o  o 


VRITE(6,*) 

VRITE(6, *) 

VRITE(6,*) 

DO  M=1 , 5 

URITE(6 ,75)  H 

WRITE(6,*)  '(If  no  L  infinity,  enter  0)' 

READ(5, *)  L(M) 

END  DO 

75  FO°MAT( IX, 'Enter  L  infinity  for  band  ',11) 

VRITE(6,*) 

VRITE(6 , * ) 

VRITE(6,*) 

VRITE(6,*) 

VRITE(6,*) 

VRITE(6,*)  'Enter  coefficients  in  the  following  order:' 
VRITE(6,*)  'AO' 

VRITE(6,*)  ' A1-A4  for  TM  bands  1-4' 

WRITE(6,*) 

WRITE(6,*) 

DO  M=0,4 

WRITE(6 , 100)  M 

VRITE(6,*)  '(If  no  coefficient,  enter  0)' 

READ(5,*)  A(M) 

END  DO 

100  F0RMAT( IX, 'Enter  coefficient  A(',I1,')') 


+ 

+ 

+ 

+ 

+ 

+ 

+ 

f 


Write  comments, 

COMMENTS. 

WRITE(15,REC=2) 


consisting  of  L  infinities,  coefficients, 

' First  5  words  ' , 

'are  L1-L5,  and  ', 

'next  5  words  are', 

' A0-A4  *  1000:  ', 

<L(I), 1-1,5), 

(INT(A(I)*1000, ), 1=0, 4), 0,0, 

'input  file:  ', 

TMXNFILE, SPACE8 , 

'comments:  ', 

COMMENTS 


files,  and 


NREC  =  3  llnput  data  for  line  1,  channel  1  begins  in  this  block. 

NREC3  =  3  JControl  for  writing  to  the  correct  position  in  output  file. 

NL  *  LL-IL+1  !Total  number  of  lines. 

NE  *  LE-IE+1  JTotal  number  of  elements 

MAXR  =  INT((NBPR*NL*NC)/N+2)  INumber  of  blocks  in  input  file. 

MAXZ  «  INT(NBPR/N)  INumber  of  blocks  per  input  line  (one  channel). 

MAXREC  =  MAXR-(NC*MAXZ)+1  IBlock  MAXREC  is  start  of  last  line  channel  1. 


DO  WHILE  (NREC  .LE.  MAXRE 

) 

Read  each  512-byte  block  ot  he  input  file  and  store  it  in  the 
appropriate  byte  array.  All  the  information  for  every  channel  for  one 
line  of  input  data  is  read  here. 

DO  1=  1 ,NC 

DO  2=  0.MAXZ-1 
N1  =  (512*Z)+1 


non  n  on 


N2  *  512*(Z+1) 

IF(N2.GT.NE)  N2  =  NE 
NREG2  =  NREC+Z+( (1-1 )*MAXZ) 

READ( 10 , REC*NREC2 )  (AIM(N3,I),  N3=N1,N2) 

END  DO 
END  DO 

C . Converts  bytes  to  integer*4  and  changes  negatives  to  positives. 

DO  I  =  1,NC 
DO  NCOL  =  1,NE 

IMAGE(NCOL, I)  =  AIM(NCOL.I) 

If  (IMAGE(NCOL, I )  .LT.  0) 

+  IMAGE(NCOL.I)  =  IMAGE(NCOL, I )  +  256 

END  DO 
END  DO 


CALL  BIGD ( I MAGE , BATHY , A , NE , L )  IDoing  bathymetry 

. Converts  positives  biger  than  128  to  negatives  for  storage  as  bytes 

. in  byte  array  BATHY. 

DO  J  =  1,NE 

IF  (BATHY(J)  .CE.  128) 

+  BATHY(J)  =  BATHY(J)  -  256 
END  DO 

. Write  to  output  file  the  calculated  bathymetric  values. 

DO  Z  =  0 , MAXZ-1 
N1  «=  (512*Z)+1 
N2  =  512*(Z+1) 

IF(N2.GT.NE)  N2  =  NE 

WRITE(15,REC=NREC3+Z)  (BATHY(N3) ,  N3=N1 ,N2) 

END  DO 

NREC3  =  NREC3  +  MAXZ  ! Increment  NREC3  to  skip  to  first  block 

!of  next  line. 


Increment  NREC  so  that  the  program  reads  the  gray  levels  for  the  next 
scan  line.  Note  that  NREC  must  be  advanced  to  skip  all  records  containing 
channels  for  the  scan  line  being  processed. 

NREC  =  NREC  +  (NC*MAXZ) 

END  DO  ! "WHILE”  loop. 


VRITE(6,*) 
VRITE(6f *) 
WRITE(6 , *) 
WRITE(6, *) 
WRITE(6 , * ) 
WRITE(6,*) 
END 


9  +  hick  irk  ir*  irk*  ★★★★★★★★  * 

9  k  ★/ 

'*  BATHYMETRY  COMPLETED  *' 

'  *  *' 

9 kkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 9 
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SUBROUTINE  BIGD( IMAGE , BATHY , A , NE , L) 

C . Subroutine  BIGD  calculates  the  bathymetry  values  for  each  element 

INTEGER  IMAGE(4500, 5) ,L(5) ,NE 
REAL  A(0:4) 


BYTE  BATHY(4500) 

DO  400  J  «  1,NE 

IF  (IMAGE( J , 5)  .GT.  L(5))  THEN  lelement  is  land. 
BATHY(J)  =  250 

ELSE  IF  ( IMAGE( J 1 1 )  -GT.  L(l))  THEN  lelement  is  water. 
BATHY(J)  =  NINT(A(0)  + 

A( 1 )*ALOG(MAX(FLOAT(IMAGE( J , 1)-L(1)),1.0)) 
A(2)*AL0G(MAX(FL0AT(IMAGE( J , 2)-L(2)),1.0)) 
A(3)*AL0G(MAX(FL0AT(IMAGE( J , 3)-L(3) ) ,1.0)) 
A(4)*AL0G(MAX(FL0AT(IMAGE( J , 4)-L(4) ) ,1.0))) 

ELSE 

BATHY(J)  =  255  lelement  is  deep  water. 

END  IF 
CONTINUE 
RETURN 
END 


o  o 


PROGRAM  UTM2ST 

C....This  prr>c-ain  converts  UTM's  to  element  and  scan  in  both  the  TM 
C....and  Sr  ’  ^  rd  nates.  Only  NOAA  calibration  points  may  be  used 

C. ...  in  t fie  ^ALT  L. . 

INTECFR*4  TMSCAN, TMELEM, SPOTSCAN, SPOTELEM 

DOUBLE  PR.  CJ  T  <N  SLTM( 3 ) , ELTM(3) ,  SLSP0T( 3) , ELSPOT(  3) , 
i  EAS, NOR 

REAL  DEPTH 

CHARACTER*40  TCOEFUT , SCOEFUT , CALFILE , OUTFILE 

DATA  LUCOEF1/24/,  LUCOEF2/26/  ,  LUO'JT/25/,  LUSURV/11/ 

C....The  COEFUT  files  contain  the  georeferencing  coefficients 
C....and  were  created  by  ELAS. 

VRITE(6 , *)  'Enter  TM  COEFUT. LEL  file:' 

VRITE(6,*)  '(Be  certain  to  give  full  path  name)' 

ACCEPT  100,  TCOEFUT 

OPEN(LUCOEF1 , FIlE-TCOEFUT, STATUS® ' OLD' , READONLY ) 

READ(LUC0EF1 , ' ( 1a, D60. 40) ' )  (5LTM( I ) , 1=1 , 3) , (ELTM( I ) , 1=1 , 3) 
VRITE(6 , *) 

VRITE(6 , *)  'Enter  SPOT  COEFUT. LEL  file:' 

VRITE(6 , * )  '(Be  certain  to  give  full  path  name)' 

ACCEPT  100,  SCOEFUT 

OPEN(LUCOEF2 , FILE=SCOEFUT, STATUS='0LD' , READONLY) 

READ( LUC0EF2 , ' ( IX , D60 . 40 ) ' )  ( SLSPOT ( I ) , I = 1 , 3 ) , ( ELSPOT ( I ) , I « 1 , 3 ) 
VRITF,(6 ,  * ) 

VRITE(6,*)  'Enter  the  NOAA  calibration  file:' 

VRITE(6, *)  '(NOTE:  this  file  must  have  0  depth' 

VRITE(6,*)  '  in  the  last  record  to  finish  properly)' 

ACCEPT  100,  CALFILE 

OPEN ( LUSURV , FI LE=CALFI LF , STATUS  = ' OLD ' , READONLY ) 

VRITE(6 , *) 

VRITE(6,*)  'Enter  the  output  file:' 

ACCEPT  100,  OUTFILE 

OPEN ( LUOUT , FI LE=OUTFI LE , STATUS® ' NEW ' ) 

VRITE(LUOUT, 1001)  IWrites  heading  line  to  output  file. 

READ( LUSURV, 500)  EAS, NOR , DEPTH 
DO  VHILE  (DEPTH  .NE.  0.) 

The  georeferencing  coefficients  are  now  used  to  generate  scanlines 
and  elements  for  points  in  the  input  file. 

TMSCAN  =  SLTM(l)  +  SLTM(2)*EAS  +  SLTM(3)*N0R  +.5 
TMELEM  -  ELTM(l)  ♦  ELTM( 2 )*EAS  +  ELTM(3)*N0R  -r.5 
SPOTSCAN  =  SLSPOT(l)  +  SLSP0T(2)*EAS  +  SLSPOT(3)*NOR  +.5 
SPOTELEM  =  ELSPOT(l)  +  ELSPOT( 2 )*EAS  +  ELSP0T( 3)*N0R  +.5 
VFITE( LUOUT , 1000 )  EAS , NOR , DEPTH , TMELEM , TMSCAN , 

SPOTELEM, SPOTSCAN 
READ( LUSURV, 500)  EAS, NOR, DEPTH 


ENDDO 


WRITE(6 , *) 

VRITE(6 , *)  '******  COMPLETED  ******' 

VRITE(6 , * ) 

100  FORMAT(A) 

500  FORMAT ( 7X, D6 . 0 , 5X, D7 .0, 5X, F7 . 3 ) 

1000  F0RMAT(4X, F10.0, 2X ,F10.0,2X,F7.3,4(2X,I6)) 

1001  F0RMAT(7X, 'EASTING' , 4X, 'NORTHING' ,4X, 'DEPTH' ,4X, 'TMELEM' ,2X, 

+  ' TMSCAN ' , 2X, ' SPELEM' , 2X, ' SPSCAN' ) 

END 
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